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

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
Точка лежит на окружности