Задача по паскалю

[DarkBeowulf]

На плоскости задано кольцо с центром в точке (х0, у0) внутренним радиусом Р1 и внешним радиусом Р2. Составить фуннкцию, которая для заданного массива точек ХУ вычисляет количество точек, принадлежащих кольцу. Точки, расположенные на границе кольца считать принадлежащими кольцу.
Заранее премного благодарен...

[Serge_Bliznykov]

для каждой точки из массива (в цикле) по теореме Пифагора вычисляйте расстояние до точки X0,y0
если полученное расстояние r удовлетворяет условию больше-равно внутреннему радиусу и меньше-равно внешнему радиусу, то точка лежит на кольце, тогда увеличить счётчик точек. Так - абстрактно:

function CountOfMatchPoints( A : TPointMass; T0 : PointType;  P1, P2 : extended) : integer;
var i : integer; 
   r : extended;
   iRez : integer;
begin
  iRez := 0;
  for i:=Low(A) to High(A) do begin
    r := sqrt( sqr(A[i].X-T0.X) + sqr(A[i].Y-T0.Y) );
    if (r>=P1 ) and (r<=P2) then Inc( iRez );
  end;
  CountOfMatchPoints := iRez;
end;

[DarkBeowulf]

Спасибо, великое... Вроде догнал... Спасибо.