написать алгоритм и программу в паскале дана окружность радиуса R с центром в начале координат и точка А(ха, уа). Определить как точка расположена по отношению к окружности (лежит на окружности, внутри окружности, за окружностью)

Спасибо\

Примечание:Уравнение окружности имеет вид:Решение:Рассмотрим 3 случая:1) Точка лежит внутри окружности.Пусть даны координаты точки x и y.Если их сумма квадратов не превышает квадрата радиуса, т.е.:3) Точка лежит вне окуржностиЕсли точка с координатами A(x;y), где сумма квадратов координаты больше квадрата радиуса, то точка лежит вне окружности, т.е.Программа:program zadacha_1;var x,y,r:real;beginwriteln('Введите координаты точки');readln(x,y);writeln('Введите радиус окружности');readln(r);if sqr(x)+sqr(y)<sqr(r) then writeln ('Точка внутри окружности') else if sqr(x)+sqr(y)=sqr(r) then writeln ('Точка на окружности')   else writeln('Точка вне окружности');end.