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

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