Program sapxep;
uses crt;
Var A: array[1..20] of LongInt;
      tam: LongInt;
      n,i,j: byte;
Begin
clrscr;
write('Nhap n= '); readln(n);
For i:= 1 to n do begin write('A[',i,']='); readln(A[i]); end;
write('Sap xep mang theo thu tu tang dan: ');
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],';');
writeln;
write('Sap xep mang theo thu tu giam dan: ');
For i:= n downto 1 do write(A[i],';');
readln;
end.