Ввести с клавиатуры n отрицательных и положительных чисел. они могут принимать значения от -10000 до 10000. найти кол-во трёхзначных чисел кратных 7 по модулю заканчивающихся на 1 без массивов

var

 n, kol, i, ch: integer;

begin

 readln(n);

 kol := 0;

 for i := 1 to n do

 begin

   readln(ch);

   if (ch mod 10 = 1) and (ch mod 7 = 0) and (ch <= 999) and (ch >= 100) then kol += 1;

 end;

 writeln(kol);

end.