Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,sc,sl,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        sc:=0; sl:=0; s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                s:=s+A[i];
                If A[i] mod 2 = 0 then sc:=sc+A[i]
                Else sl:=sl+A[i];
        End;

        Writeln('Tong chan la: ',sc,' va tong le la: ',sl);
        Write('Tong day so: ',s);
        Readln
End.

uses crt;

Var n,i,t1,t2:integer;

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

Begin

 Clrscr;

 write('nhap n:');readln(n);

 for i:=1 to n do 

   begin

     write('nhap pt thu ',i,' :');

     readln(a[i]);

   end;

t1:=0;t2:=0;

for i:=1 to n do if a[i] mod 2=0 then t1:=t1+a[i] else t2:=t2+a[i];

writeln('Tong cac so chan: ',t1); 

writeln('tong cac so le: ',t2);

writeln('tong day so: ',t1+t2);

readln;

End;