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

Предыдущий
вопрос Следующий
вопрос

program PointCircle;

var
x0, y0, r: real;
N: integer;

begin
write('Введите координату x точки: ');
readln(x0);
write('Введите координату y точки: ');
readln(y0);
write('Введите радиус круга: ');
readln(r);

if ((x0 x0 + y0 y0) <= r * r) then
N := 1
else
N := 0;

writeln('N = ', N);

end.