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

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.