Program BTH;
uses crt;
var n,i,k,t:longint;
a:array[1..100000] of longint;
Begin
        clrscr;
        Write('Nhap n: ');readln(n);
        For i:=1 to n do
        Begin
                Write('Nhap so thu ',i,' : ');readln(a[i]);
        end;
        for i:=1 to n do
        Begin
                If a[i] mod 2=0 then k:=k+a[i] else t:=t+a[i];
        end;
        Writeln('Tong so chan la: ',k);
        writeln('Tong so le la: ',t);
        readln;
end.

Program;
Uses CRT;
Var A:Array[1..50] of Integer;
Var i,n,tc,tl:Integer;
Begin
        Clrscr;
        Write('Nhap n: ');
        Readln(n);
        For i:=1 To n Do
        Begin
                Write('Nhap gia tri cho phan tu thu ',i,' :');
                Readln(A[i]);
        End;
        Write('Cac phan tu cua mang la: ');
        For i:= 1 To n Do
                Write(A[i],'  ');
        For i:=1 To n Do
                If A[i] mod 2 = 0 then
                        tc:=tc+A[i]
                Else
                        tl:=tl+A[i];
        Writeln;
        Writeln('Tong cac so chan la: ',tc);
        Write('Tong cac so le la: ',tl);

Readln;
End.