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

Var x,y,r:real;
begin
write(x, y: );
readln(x,y);
write(R = );
readln(r);
if x*x+y*ygt;r*r
 then writeln(точка находится внутри круга)
 else if x*x+y*y=r*r
        then writeln(Точка находится на окружности)
        else writeln(Точка находится вне круга);
end.

Пример:
x, y: 3 4
R = 5
Точка находится на окружности