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

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