Дан круг с координатами x, y. Радиус круга r, ввести n точек, посчитать сколько точек попало в круг.
program krug;
var
n : integer; // кол-во точек
oxc, oxy : real; // координаты круга
r, d : real; // радиус, расстояние от центра до точки
mx, my : real; // координаты точки
i : integer; // счетчик
i1: integer; // кол-во точек попавших в круг
begin
writeln('введите координаты круга.');
readln(oxc, oxy);
writeln('введите радиус.');
readln(r);
writeln('введите кол-во точек.');
readln(n);
i1 := 0;
for i := 1 to n do
begin
writeln('введите координаты ', i, ' точки.');
readln(mx, my);
d := sqrt(sqr(oxc-mx)+sqr(oxy-my));
if d <= r then
begin
writeln('Точка с координатами ', mx:2:2, ' ', my:2:2, ' попала в круг.');
inc(i1);
end
else writeln('Точка с координатами ', mx:2:2, ' ', my:2:2, ' не попала в
круг.');
end;
writeln('в круг попало ', i1, ' точек.');
readln;
end.