uses crt;
var a: array[1..100] of integer;
i,j,n,t,x,p,q:integer;
begin
clrscr;
write ('nhap n: ');  readln (n);
for i:=1 to n do
begin
write ('nhap phan tu thu ',i,': '); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>a[j+1] then
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
end;
write ('day sau khi sap xep tang dan la: ');
for i:=1 to n do write(a[i],' ');
readln;
End.

program bai_giai;
uses crt;
var A:array[1..100] of integer;
    n,i,j,tg:integer;
begin
    clrscr;
    write('Nhap n (n<=100): ');  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('Day tang dan: ');
    for i:=1 to n do write(A[i],' ');
    readln;
end.