Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 6. количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число — сумму чисел, кратных 6.
язык pascal
program pr1;
var n, i, s: integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 6 = 0 then
s:= s+1;
writeln(s);
end.
===== PascalABC.NET =====
begin
var n := ReadInteger;
ReadSeqInteger(n).Where(p -> p mod 6 = 0).Sum.Println
end.