PascalABC.NET
begin
var A := ReadSeqInteger('Вводите последовательность: ', ReadInteger('укажите длину последовательности: '));
A.Where(x -> x mod 3 = 0).Sum.Println
end.
