Viết ctr nhập số n. In ra màn hình dãy số vừa nhập, in ra màn hình dãy số theo thứ tự tăng dần.

var a:array[1..32000]of longint;

       n,i,j,t:longint;

begin

 writeln(‘nhap so n’);readln(N);

 writeln(‘nhap lan luot N phan tu’);

 for i:=1 to n do

  readln(a[i]);

 writeln(‘mang da nhap’);

for i:=1 to n do

 write(a[i],’ ‘);

writeln;

 for i:=1 to n-1 do

  for j:=i+1 to n do

   if a[i]>a[j] then begin

    t:=a[i];

    a[i]:=a[j];

    a[j]:=t;

   end;

 writeln(‘mang sau khi sap xep tang dan’);

 for i:=1 to n do 

  write(a[i],’ ‘);

readln;

end.