program bt;

uses crt;

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

n,i,chan,le,d,dem:Integer;

begin

  WriteLn(' phan tu cua day: '); readln(n);

  for i:=1 to n do

    begin

    write('a[',i,']=');readln(a[i]);

    end;

  chan:=0;le:=0;

    d:=0;dem:=0;

  for i:=1 to n do 

      if a[i] mod 2=0 then

        begin

        chan:=chan+a[i];

        d:=d+1;

        end

      else

          begin

          le:=le+a[i];

          dem:=dem+1;

          end;

writeln('Tong chan: ',chan,' so luong: ',d);

 writeln('Tong le: ',le,' so luong: ',dem);   

  readln;

end.

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    dl,dc,tl,tc,i,n: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        dl:=0; dc:=0; tl:=0; tc:=0;

        For i:=1 to n do
                If A[i] mod 2 = 0 then
                Begin
                        inc(dc);
                        tc:=tc+A[i];
                End

                Else
                Begin
                        inc(dl);
                        tl:=tl+A[i];
                End;

        Writeln('Co ',dc,' so chan, tong la ',tc);
        Write('Co ',dl,' so le, tong la ',tl);
        Readln
End.