СРОЧНО, ОТДАЮ 72 БАЛЛА, ЯЗЫК ПАСКАЛЬ
// PascalABC.NET
begin
ReadSeqInteger(ReadInteger).Where(p -> p mod 3 = 0).Sum.Print
end.
