uses crt;
var n,i,d,d1 : integer;
a : array[1..100] of longint;
begin
write('Nhap n :'); readln(n);
d:=0; d1:=0;
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2 =0 then write('So chan la :', a[i]) else write('So le la :',a[i]);
for i:=1 to n do if a[i] mod 2 = 0 then d:=d+a[i] else d1:=d1+a[i];
write('Tong le :', d1,'tong chan :',d);
readln
end.