program sap_xep_tang_dan;
  uses crt;
    var a:array [1..100] of longint;
    var n, d, i, j, t, k: longint;
begin
 clrscr;
  write ('nhap so phan tu cua day so: ');  readln (n);
  writeln ('nhap day so: ');
  for i:=1 to n do
   begin
    write ('nhap 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
         t:=a[i];
         a[i]:=a[j];
         a[j]:=t;
       end;
  writeln ('day so sau khi sap xep: ');
  for i:=1 to n do
   write (a[i],'   ');
 readln;
end.

program sxmang;

uses crt;

var A:array[1..1000] of integer;

      n,i,j,tg:integer;

begin

clrscr;

write('Nhap so luong phan tu: ');   readln(n);

write('NHAP GIA TRI TUNG PHAN TU CUA MANG');

for i:=1 to n do

 begin

  write('Phan tu thu ',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

    tg:=A[i];

    A[i]:=A[j];

    A[j]:=tg;

   end;

writeln('Day sau khi sap xep la:');

for i:=1 to n do

 write(A[i]:4);

readln

end.