uses crt;
var a : array [1 .. 100] of integer;
i, n, s, d : integer;
begin
clrscr;
s := 0; d := 0;
write('Nhap so phan tu cua day so : '); readln(n);
write('Nhap ', n ,' so nguyen : ');
for i := 1 to n do begin read(a[i]);
if a[i] mod 2 = 0 then s := s + a[i] else d := d + 1;
end;
writeln('Tong so chan = ', s);
writeln('Co ', d ,' so le');
readln
end.