Напишите программу, которая в последовательности натуральных чисел определяет количество
чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами
числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100.
Введённые числа не превышают 300. Программа должна вывести одно число — количество чисел,
кратных
var
size, num, counter, i: integer;
begin
counter := 0;
read(size);
for i := 1 to size do
begin
read(num);
if num mod 3 = 0 then
counter := counter + 1
end;
write(counter);
end.