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

var x,y,p,r:real;beginwriteln('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 4p = 5Точка лежит на окружности