Viết chương trình nhập một dãy có tối đa 1000 số nguyên. Sắp xếp và in ra dãy số theo thứu tự tăng dần.

program oken;

uses crt;
var a: array [1..1000] of integer;
    i,n,j,tam:integer;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                     write('a[',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
                              tam:=a[i];
                              a[i]:=a[j];
                              a[j]:=tam;
                            end;
        for i:=1 to n do write(a[i],' ');
        readln;
end.