Задание
Ниже представлена программа, которая получает на вход количество чисел в последовательности, а затем сами числа. В последовательности натуральных чисел определить сумму чисел, кратных 6. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 6.
Расставьте нижеперечисленные описания действий в соответствующие строки программы.
var n, s, k, g: integer;
begin
s:=0;
readln(N);
for k:=1 to N do
begin
readln(g);
if (g mod 6 = 0) then
s:=s+g;
end;
writeln(s);
end.