Cоставить, используя оператор цикла с параметром.

[Квитокс]

Задана последовательность из n вещественных чисел. Определить кол-во элементов последовательности, попадающих
в заданный интервал [a,b]( без разницы, интервал свой берешь 1..100, к примеру)
Хелп люди.
Или помогите разобраться, в чем ошибка?

Код: Выделить всё

uses
  SysUtils;

Var N,kol,i:integer;
  r,a,b:real;

begin
  { TODO -oUser -cConsole Main : Insert code here }
Write('Vvedite kolichestvo chicel=');
read(n);
write('Vvedite interlval a,b=');
Readln(a,b);
Writeln('Vvedite chislo=');
for i:=1 to n do
begin
readln(r);
if (r>=a) and (r<=b) then
kol:=kol+1;
End;
end.

[Хыиуду]

Господи, скрипт в стиле "итальянская забастовка" - работает абсолютно верно, но при этом выглядит толстым троллингом Меня порадовало.
Перед последним end. поставьте writeln(kol);