Из представленных действий составьте программу, которая на вход получает количество чисел в последовательности, а затем сами числа. В последовательности натуральных чисел определить сумму чисел, кратных 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.