Напишите программку которая в последовательности натуральных чисел определяет количество чисел меньше

var a: array[1..100] of integer;

n, col, tmp: integer;

begin

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

readln(n);

writeln(Заполните массив с клавиатуры);

for i := 1 to n do begin

readln(tmp);

if tmp lt;= 30000 then a[i] := tmp else writeln(Введённое число больше 30000!);

end;

writeln(Подсчитываем количество разыскиваемых чисел);

for i := 1 to n do if (a[i] lt;= 500) and (a[i] mod 3 = 0) then col := col + 1;

writeln(Количество чисел, которые меньше 500 и кратны 3 , col);

end.