PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

begin

 ReadInteger('n->').ToString.JoinIntoString(' ').ToIntegers

                                                             .Where(t -> t mod 4 = 0).Sum.Println;

end.