*Với kiểu mảng:
Uses CRT;
Var a:array[1..50] of integer;
i,n,j,tg,kq:integer;
Begin
Clrscr;
Repeat
Write(' Nhap so ptu N = '); Readln(n);
Until n<=6;
For i:= 1 to n do
Begin
Write(' Nhap a[',i,']= '); Readln(a[i]);
End;
Writeln;
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(' Cac so vua nhap theo thu tu tang dan la: ');
For i:= 1 to n do Write(a[i]:3);
Readln
End.