uses crt;
var a:array[0..6] of integer;
i,n,j,tam:integer;
begin
clrscr;
a[1] := 5;
a[2] := 7;
a[3] := 6;
a[4] := 4;
a[5] := 9;
a[6] := 3;
n:=6;
writeln('Day ban dau: ');
writeln('A = [ 5 7 6 4 9 3 ] ');
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;
writeln('Day tang dan: ');
write('A = [ ');
for i := 1 to n do
write(a[i],' ');
write(']');
readln;
end.