program summa;
var i,a,n,sum:integer;
begin
writeln('Введите n');
read(n);
sum:=0;
for i:=1 to n do
read(a);
if (a mod 2=0) then sum:=sum+a;
end;
writeln('Cумма всех четных чисел =',sum);
end.
program summa;
var i,a,n,sum:integer;
begin
writeln('Введите n');
read(n);
sum:=0;
for i:=1 to n do
begin
read(a);
if (a mod 2=0) then sum:=sum+a;
end;
writeln('Cумма всех четных чисел =',sum);
end.