program bai3;
uses crt;
var     i,j,n,tg1,tg2,tg,k:integer;
   a:array[1..50] of integer;
BEGIN
   clrscr;
   write('n = ');readln(n);
   while (n<0) or (n>100) do
       begin
               write('nhap lai n=');readln(n);
      end;
   for i:=1 to n do
       begin
               write('a[',i,'] = ');readln(a[i]);
       end;
        tg1:=0;tg2:=0;
   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 vua sap xep: ');
      for i:=1 to n do write(a[i],' ');
        Writeln;
      Write('Nhap vao so k: '); Readln(k);
      i:=1;
      While (k>a[i]) and (i<=n) do
            i:=i+1;
      For j:=n+1 downto i do
           a[j]:=a[j-1];
           a[i]:=k;
      Writeln('Mang sau khi chen ',k,': ');
      For i:=1 to n+1 do
          Write(a[i],' ');
      Readln;
END.