uses crt;
var a:array[1..1000] of integer;
    n,i,j,k,d,s:integer;
begin
    clrscr;
    write('Nhap so luong phan tu: '); readln(n);
    for i:=1 to n do
        begin
            write('a[',i,']: '); readln(a[i]);
        end;
    for i:=1 to n do
    begin
        if a[i] mod 2=0 then s:=s+a[i];
        if a[i] mod 2=1 then d:=d+1;
    end;
    writeln('Tong cac phan tu chan: ',s);
    writeln('Co ',d,' phan tu la so le');
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if a[i]>a[j] then
                begin
                    k:=a[i];
                    a[i]:=a[j];
                    a[j]:=k;
                end;
    write('Day tang dan: ');
    for i:=1 to n do write(a[i],' ');
    readln;
end.