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

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 < R2*R2)and(x*x + y*y > R1*R1) then k2:=k2 + 1;

end;

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

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

end.