Напишите программу, которая в последовательности натуральных чисел определяет количество и среднее значение суммы нечетных 4-хзначных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Если избранных чисел нет, вывести «нет»

В задании сказано, что надо найти 4-хзначных чисел, но в конце написано, что значение чисел не должно превышать 300.

Но числа меньше 300 будут трехзначными, поэтому в моей программе числа могут быть больше 300.

Может быть опечатка в задании.

Программа:

var kol, n, i, a: integer;

sum: real;

z: boolean;

begin

 writeln('Введите количество чисел');

 readln(n);

 if (n > 100) then begin

   writeln('Ошибка');

   exit;

   end;

   sum:= 0;

   kol:= 0;

   z:= false;

 writeln('Введите числа');

 for i:= 1 to n do begin

   readln(a);

   if (((a div 10000) = 0) and ((a mod 2) = 1) and (a > 0)) then begin

     sum:= sum + a;

     kol:= kol + 1;

    if((a mod 5) = 0) then z:= true

   end;

 end;

 if ((kol = 0) or (z = false)) then begin

   writeln('Нет');

 end

 else begin

   sum := sum / kol;

   writeln('Среднее значение суммы: ', sum);

   writeln('Количество чисел: ', kol);

 end;

end.