uses crt;
var a:array[1..100] of integer;
i,t,t1:integer;
begin
        clrscr;
        t:=0;
        t1:=0;
        for i:=1 to 100 do
        begin
                write('phan tu[',i,']=');
                readln(a[i]);
                t:=t+a[i];
                if a[i] mod 2=0 then t1:=t1+a[i];
        end;
        writeln('Tong day so vua nhap:',t);
        writeln('Tong cac so chan trong day so vua nhap:',t1);
        readln;
end.