var A: array [1..100] of integer;
    k,n,i,tam,x:integer;
begin
   write('Nhap so phan tu n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   for k:=1 to (n-1) do
   for i:=1 to (n-1) do
   if A[i] > A[i+1] then
   begin
      tam:=A[i];
      A[i]:=A[i+1];
      A[i+1]:=tam;
   end;

 writeln('Mang da sap xep la: ');
   for i:=1 to n do write(A[i],' ');
   writeln;
   write('Nhap so x: '); readln(x);
   i:=1;
   while (x>a[i]) and(i<=n) do i:=i+1;
   for k:=n+1 downto i do
   A[k]:=A[k-1];
   A[i]:=x;
   write('Mang da chen x la: ');
   for i:=1 to n+1 do write(A[i],' ');
   readln
end.

`Pô`

uses crt;
 var a , b : array[1..100] of longint ;
  n, i , j, k, lus : longint ;
   begin
    clrscr;
write('N='); readln(n);
 write('Nhap mang: ');
  for i := 1 to n do 
     begin
    read(a[i]);
    b[i] := a[i];
     end ;
for i := 1 to n do
    for j := i + 1 to n-1 do
     if a[i] > a[j] then
         begin
        lus := a[i];
        a[i] := a[j] ;
        a[j] := lus ;
         end ;
write('Sau khi sap xep tang dan: ');
for i := 1 to n do write(a[i],' ');
 writeln;
write('Nhap k: '); readln(k);
inc(n);
 a[n] := k ;
 for i := 1 to n do
    for j := i + 1 to n-1 do
     if a[i] > a[j] then
         begin
        lus := a[i];
        a[i] := a[j] ;
        a[j] := lus ;
         end ;
write('Mang sau khi chen ',k,': ');
 for i := 1 to n do write(a[i],' ');
   writeln;
 write('Day ban dau: ');
for i := 1 to n-1 do write(b[i],' ');
   writeln;
write('Day sau khi xu ly: ');
 for i := 1 to n do write(a[i],' ');
  writeln;
end.