На Паскале. Вводятся координаты X, Y для N точек. Определите, сколько точек попадают в круг радиуса R. Сколько точек попадают в кольцо с меньшим радиусом R1, большим R2.

program zz1;

var k1, k2, n, i, R, R1, R2, x, y:integer; / / задаем переменные целого типа

begin

write (' введите количество точек n '); / / вводим с клавиатуры число

read (n);

write (' введите радиус R '); / / вводим с клавиатуры число

read (R);

write (' введите радиус R1 '); / / вводим с клавиатуры число

read (R1);

write (' введите радиус R2 '); / / вводим с клавиатуры число

read (R2);

for i:=1 to n do

begin

read (x, y);

if x*x + y*y < R*R then k1:=k1 + 1;

if (x*x + y*y R1*R1) then k2:=k2 + 1;

end;

writeln (' количество точек внутри круга = ', k1); / / выводим ответ

writeln (' количество точек внутри кольца = ', k2);

end.