Написать программу на Pascal 15.2 Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6.Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6.Количество чисел не превышает 1000. Введенные числа не превышают 30000.Программа должна вывести одно число: количество чисел, кратных 6 входные данные 4 17 18 26 24 выходные данные 2
program CountMultiplesOf6;
var
n, num, count, i: integer;
begin
readln(n);
count := 0;
for i := 1 to n do
begin
readln(num);
if num mod 6 = 0 then
count := count + 1;
end;
writeln(count);
end.