Задана точка M с координатами (x, y). Определить ее положение относительно окружности радиуса R с центром в начале осей координат.

Var x, y, r:real;

begin

write ('x, y: ') ;

readln (x, y) ;

write ('R = ') ;

readln (r) ;

if x*x+y*y>r*r

then writeln ('точка находится внутри круга')

else if x*x+y*y=r*r

then writeln ('Точка находится на окружности')

else writeln ('Точка находится вне круга') ;

end.

Пример:

x, y: 3 4

R = 5

Точка находится на окружности