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.

uses crt;

var a : array[1 .. 100] of integer;

i, j, n : integer;

begin

clrscr;

write('Nhap n : '); readln(n);

write('Nhap ', n ,' so nguyen : ');

for i := 1 to n do read(a[i]);

for j := n downto 2 do

for i := 1 to j - 1 do

if a[i] > a[i + 1] then begin

a[i] := a[i] + a[i + 1];

a[i + 1] := a[i] - a[i + 1];

a[i] := a[i] - a[i + 1]; end;

write('Day tang dan : ');

for i := 1 to n do write(a[i],'   ');

readln

end.