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

//PascalABC.NETvarx,y,r:real;N:integer;beginwrite('Введите координаты точки и радиус круга: ');readln(x,y,r);if sqr(x)+sqr(y) <= sqr(r) thenN:=1;writeln(N);end.

Спасибо!!!

Не за что

//PascalABC.NETvarx,y,r:real;beginwrite('Введите координаты точки и радиус круга: ');readln(x,y,r);if sqr(x)+sqr(y) <= sqr(r) thenwriteln('Точка попадает в круг.')elsewriteln('Точка не попадает в круг.');end.