Задача, Не проходите мимо. Опции

[-Casual-]

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

[renesko1]

В чем проблема, если я все правильно понял, вводим в цикле посдедовательно расстояния от центра с клавы
и | If (s>r) and (s<R) then inc(ColvoPoint) ; | после оканчания ввода расстояний writeln(ColvoPoint) ;