var

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

begin

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

  readln(R);

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

  readln(Oa, Ob);

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

  readln(x, y);

  if (x > (Oa - R)) and (x < (Oa + R)) and (y  > (Ob - R)) and (y < (Ob + R)) then

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

  else

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

end. 

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