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

program point;
var x, y, R: real;
begin
writeln(Для выхода из программки: радиус окружности 0);
R:= 1;
while r gt; 0 do
begin
write(Введите радиус R окружности (центр - в начале координат): );
readln(R);
if r gt; 0 then
begin
write(Введите координаты точки x и y через пробел: );
readln(x, y);
writeln;
if x * x + y * y = R * R then writeln(Точка находится на окружности)
//можно сделать вариант "в круге", если заменить в условии " = " на " lt; "
else writeln(Точка не находится на окружности)
end;
Writeln();
end;
Writeln(Работа программки прекращена)
end.