Составьте программу, проверяющую, лежит ли точка с заданными координатами вне круга с радиусом R и началом в точке O(a,b)

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.  Если все правильно, отметь решение как лучшее)