составьте программку, проверяющую, лежит ли точка с данными координатами вне круга

var

 x, y, R, Oa, Ob: real;

begin

  writeln('Введите радиус окружности R');

  readln(R);

  writeln('Введите координаты центра окружности');

  readln(Oa, Ob);

  writeln('Введите координаты точки');

  readln(x, y);

  if (x gt; (Oa - R)) and (x lt; (Oa + R)) and (y  gt; (Ob - R)) and (y lt; (Ob + R)) then

    writeln('Точка с данными координатами лежит снутри круга')

  else

    writeln('Точка с данными координатами лежит вне круга');

end. 

Если все правильно, отметь решение как наихорошее)