uese crt;
var a: array[1..100] of integer;
n,i,max,h: integer;
begin
clrscr;
writeln('nhap so phan tu day:'); readln(n);
for i:=1 to n do begin
writeln('nhap so thu',i,':'); readln(a[i]);
end;
for i:= 1 to n-1 do
for h:= i+1 to n do
if a[i]>a[h] then begin
max:=a[i];
a[i]:=a[h];
a[h]:=max;
end;
writeln('Thu tu tang dan la:');
for i:= 1to n do
write(a[i]:4);
readln;
end.