Borland Pascal одномерные массивы

[maksim-2804]

4. Заданы два одномеpных массива X и Y, содеpжащие кооpдинаты
N точек на плоскости. Опpеделить, сколько точек попадет внутpь окpуж-
ности с центpом в точке XO, YO и pадиусом R.

[Mad_Cat]

k:=0;
for i:=1 to n do
if sqrt(sqr(x[i]-xo)+sqr(y[i]-yo))<=R then k:=k+1;