Напишите программу... сумму чисел, кратных 6...

Задание:

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. 

Количество введенных чисел не превышает 100. Все числа не превышают 300.

 Программа должна вывести одно число: сумму чисел, кратных 6.

 Пример работы программы:

 Входные данные: 3, 12, 25, 6.

 Выходные данные: 18.

Решение:

Код программы на Паскале:

Program nomer_2;
Var a, i, n, S: integer;
Begin
Write('Vvedite n '); readln(n);
S:=0;
For i:=1 to n do
  begin
  read(a);
  if (a mod 6 =0) then S:=S+a;
  end;
Writeln(S);
End.