Ответ:

PascalABC.NET

begin

 var A := ReadSeqInteger('Вводите последовательность: ', ReadInteger('укажите длину последовательности: '));

 A.Where(x -> x mod 3 = 0).Sum.Println

end.