Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — количество чисел, кратных 3.
Пример работы программы:
Входные данные:3, 12, 26, 24 Выходные данные:2

var a,b,i ,s:integer;beginreadln(a);for i:=1 to a do beginreadln(b);if b mod 3=0 thens:=s+1;end;writeln(s);end.