uses crt;

var n,i,s,p:longint;

      a:array[1..100] of longint;

begin

clrscr;

write('Nhap n');      readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do

begin

s:=s+a[i];

if a[i] mod 2 <>0 then p:=p+a[i];

end;

writeln('tong cac so trong day la: ',s);

writeln('tong cac so le trong day la: ',p);

readln

end.

var n,i,s,sl:longint;

      a:array[1..100] of longint;

begin

read(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do

begin

s:=s+a[i];

if a[i] mod 2 <>0 then sl:=sl+a[i];

end;

writeln('tong cac so trong day la: ',s);

writeln('tong cac so le trong day la: ',sl);

readln

end.