uses crt;

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

i, j, n, X : integer;

begin

clrscr;

write('Nhap n : '); readln(n);

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

for i := 1 to n do read(a[i]);

for j := n downto 2 do

    for i := 1 to j - 1 do

        if a[i] > a[i + 1] then begin

        X := a[i]; a[i] := a[i + 1];

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

write('Day tang dan : ');

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

readln

end.

program sap_xep;

uses crt;

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

n,i,j:byte;

tg:integer;

begin

clrscr;

write(‘Nhap so luong so: ‘);  readln(n);

for i:=1 to n do

begin

write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if A[i]>A[j] then

begin

tg:=A[i];

A[i]:=A[j];

A[j]:=tg;

end;

write(‘Mang sau khi sap xep la: ‘);

for i:=1 to n do

write(A[i],’ ‘);

readln;

end.