Определить,попадает ли точка с координатами x,y в круг радиусом r. присвоить признаку n=1, если точка находится внутри круга, и n=0, если точка вне круга.

Var x,y,r,n : integer;
begin
read(x,y,r);
if ((x*x + y*y) <= (r*r)) then n := 1 else n := 0;
writeln(n);
end.