uses crt;
var b:array[1..10000] of longint;
    n,i,j,k,a,x:longint;
begin
    clrscr;
    write('Nhap so luong phan tu: '); readln(n);
    for i:=1 to n do
        begin
            write('Nhap phan tu thu ',i,': '); readln(b[i]);
        end;
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if b[i]>b[j] then
                begin
                    k:=b[i];
                    b[i]:=b[j];
                    b[j]:=k;
                end;
    write('Day tang dan: ');
    for i:=1 to n do write(b[i],' '); writeln;
    write('Nhap vi tri phan tu can chen: '); readln(x);
    write('Nhap gia tri phan tu can chen: '); readln(a);
    for i:=n+1 downto x+1 do b[i]:=b[i-1];
    b[x]:=a;
    write('Mang sau khi them gia tri ',a,' vao: ');
    for i:=1 to n+1 do write(b[i],' '); writeln;
    for i:=1 to n-1 do
        for j:=i+1 to n+1 do
            if b[i]>b[j] then
                begin
                    k:=b[i];
                    b[i]:=b[j];
                    b[j]:=k;
                end;
    write('Day tang dan luc nay: ');
    for i:=1 to n+1 do write(b[i],' ');
    readln;
end.

program pht;
uses crt;
  var B: array[1..100] of integer;
        i, n, a, j, t: integer;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        write('Nhap a = '); readln(a);
        for i:=1 to n do
        begin
                write('B[', i, '] = '); readln(B[i]);
        end;
        for i:=1 to n-1 do
                for j:=i+1 to n do if B[i]>B[j] then
                begin
                        t:=B[i];
                        B[i]:=B[j];
                        B[j]:=t;
                end;
        for i:=1 to n do write(B[i]:3);
        writeln;
        for i:=1 to n do if (B[i]<=a) and (B[i-1]>a) then t:=i;
        for i:=n+1 downto t+1 do B[i]:=B[i-1];
        B[t]:=a;
        for i:=1 to n+1 do write(B[i]:3);
        writeln;
        for i:=1 to n do
                for j:=i+1 to n+1 do if B[i]>B[j] then
                begin
                        t:=B[i];
                        B[i]:=B[j];
                        B[j]:=t;
                end;
        for i:=1 to n+1 do write(B[i]:3);
        readln
end.