uses crt;
var A:array[1..100] of longint;
i,n,tam,j,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
if A[i] mod 2=0 then s:=s+A[i];
end;
write('Tong cac so chan co trong day: ',s);
writeln;
write('Sap xep 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.

uses crt;

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

i, n, k, S, X : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

S := 0;

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do

    begin

        read(A[i]);

        if A[i] mod 2 = 0 then S := S + A[i];

    end;

for k := n downto 2 do

    for i := 1 to k - 1 do

        if A[i] > A[i + 1] then

            begin X := A[i];

            A[i] := A[i + 1];

            A[i + 1] := X; end;

writeln('Tong cac so chan = ', S);

write('Day tang dan : ');

for i := 1 to n do write(A[i],' ');

readln

end.