program Mang;
uses CRT;
var   a: array[1..1000] of integer;
      n,i,j,chan,le,t: integer;
    
begin
        clrscr;
       
        write('Nhap n= '); readln(n);
       
        for i:=1 to n do
           
               begin
              
                   write('a[',i,']: ');readln(a[i]);
                  
               end;
              
        write('Day vua tao la: ');
       
        for i:=1 to n do
       
            write(a[i],' ');
          
        for i:=1 to n do
       
            If a[i] mod 2 = 0 then chan:=chan + a[i]
           
          else le:=le+a[i];
         
        writeln;
       
        writeln('Tong cac so chan: ',chan);
       
        writeln('Tong cac so le: ',le);
       
        for i:=1 to n-1 do
       
           for j:=i+1 to n do
       
              If a[i] > a[j] then
            
                    begin
                   
                        t:=a[i];
                       
                        a[i]:=a[j];
                       
                        a[j]:=t;
                       
                    end;
                   
         write('Day sau khi sap xep: ');
        
         for i:=1 to n do
        
              write(a[i],' ');
             
readln;
end.