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.
