uses crt;
var n,i,tong,tam,j:longint;
   A:array[1..100] of longint;
begin
clrscr;
write('Nhap n: '); readln(n);
 tong:=0;
        for i:=1 to n do
                begin
                        write('A[',i,']=');
                        readln(A[i]);
                        if A[i] mod 2=0 then tong:=tong+A[i];
                end;
        writeln('Tong cac so chia het cho 2 la: ',tong);
        write('Sap xep theo thu tu tang dan: ');
        for i:=1 to n-1 do
        for j:=i+1 to n do
        if A[i]>A[j] then
                begin
                        tam:=A[i];
                        A[i]:=A[j];
                        A[j]:=tam;
                end;
        for i:=1 to n do
        write(A[i],',');
        readln
end.

program Daoanhviet96;
uses crt;
var s,n,i,j,tam:integer; a:array[1..100] of integer;
begin
clrscr;
write('nhap n: ');
readln(n);
write('nhap day a: ');
for i:=1 to n do read(a[i]);
s:=0;
for i:=1 to n do if a[i] mod 2 = 0 then s:=s+a[i];
writeln('tong cac so chia het cho 2: ',s);
for i:=1 to n do
for j:=1 to n do
if (i<j) and (a[i]>a[j]) then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
write('day a sau khi sap xep la: ');
for i:=1 to n do write(a[i],' ');
readln;
end.

$\color{red}{\text{#Daoanhviet96}}$