viết chương trình nhập 10 số bất kì từ bàn phím rồi in ra kết quả theo thứ tự tăng dần

program BT;

uses crt;

var n,i,j,tg: integer;

Begin

         clrscr;

         for i:=1 to 10 do

         begin

                  write(‘Nhap so thu ‘,i,’: ‘); readln(n);

         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(‘Cac so in tang dan: ‘);

         for i:=1 to n do write(A[i],’ ‘);

         readln

End.