Даны координаты точки на плоскости. Известно, что окружность радиусом Р центром с?

Var x,y,p,r:real; begin writeln('x, y:'); readln(x,y); r:=x*x+y*y; write('p = '); readln(p); if r=p*p   then writeln('Точка лежит на окружности')   else if r=p*p then write('Точка лежит вне окружности'); end. Пример: x, y: 3 4 p = 5 Точка лежит на окружности