uses crt;
var n,s,i:integer;
    m:array[1..100] of integer;
begin
        clrscr;
        writeln('Nhap n:');     readln(n);
        s:=0;
        for i:=1 to n do
        begin
                writeln('m[',i,']=');   readln(m[i]);
                if m[i] mod 2=0 then s:=s+m[i];
        end;
        writeln('Tong cac so  chan tren la:',s);
        readln;
end.