Напишите программу которая в последовательности натуральных чисел определяет количество чисел меньше 500 и кратных 3. Програма получает на вход количетво чисел, а затем сами числа. Введеные числа не привышают 30000

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 < = 30000 then a[i] : = tmp else writeln ('Введённое число больше 30000!');

end;

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

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

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

end.