Program New_Programm_for_Znanija;
var Sum_Even,Tmp,Tmp1, End_For:integer;
begin
WriteLn('Ââåäèòå êîë-âî ÷èñåë');
ReadLn(End_For);
for Tmp:=1 to End_For do
begin
ReadLn(Tmp1);
if (Tmp1 mod 2 =0) then Sum_Even:=Sum_Even+Tmp1;
end;
Write('Ñóììà ÷åòíûõ ÷èñåë = ');
WriteLn(Sum_Even);
ReadLn();
end.