Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 6. Язык Pascal
program SumOfMultiplesOf6;
var
n, i, num, sum: integer;
begin
sum := 0;
readln(n);
for i := 1 to n do
begin
readln(num);
if (num mod 6 = 0) then
sum := sum + num;
end;
writeln(sum);
end.