Задача., Определить количество точек... Опции

[Casual]

Задача: на плоскости на расстоянии S[1], S[2], ... , S[10] от центра кругового кольца с внутренним радиусом r и внешним R расположены точки. Определить количество точек, располпженных внутри кольца.
Пробовал решать, ничего не работает.

Program Tochka;
var s:array[1..10] of integer;
r, g, i, j, n:real;
begin
randomize;
begin
writeln('vvedite rasstojanija');
readln(n);
for i:=1 to n do
begin
s[i]:=random(10);
writeln(s[i]);
end;
if (s>r) and (s<g) then
inc(s);
writeln(s);
readln;
end.

[klem4]

если задача звучит имено так как ты привел, то решение такое:

count := 0;
for i := 1 to 10 do
  if (s[i] > lowR) and (s[i] < highR) then
    inc(count);