uses crt;
var i,s,n,k,k1,j,tam:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so ptu:');readln(n);
write('nhap so k bat ky:');readln(k);
write('nhap vi tri cua k:');readln(k1);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
for i:=1 to n do
for j:=i+1 to n do
 if a[i]>a[j] then
 begin
  tam:=a[i];
  a[i]:=a[j];
  a[j]:=tam;
 end;
write('sap xep theo thu tu tang dan:');
for i:=1 to n do write(a[i]:3);
for i:=n+1 downto 2 do a[i]:=a[i-1];
a[k1]:=k;
writeln;
write('mang sao khi chen them k:');
for i:=1 to n+1 do write(a[i]:3);
readln;
end.

(mong dc 5*+hay nhất)

uses crt;
var a : array [1 .. 100] of integer;
    i, n, k, j, v : integer;
    
begin
clrscr;
write('Nhap n = '); readln(n);
write('Nhap day gom ', n ,' so : ');

for i := 1 to n do read(a[i]);
for j := n downto 2 do
    for i := 1 to j - 1 do
        if a[i] < a[i + 1] then
            begin
                a[i] := a[i] + a[i + 1];
                a[i + 1] := a[i] - a[i + 1];
                a[i] := a[i] - a[i + 1];
            end;
            
write('Nhap so k = '); readln(k);
for i := 1 to n do 
    if k < a[i] then v := i;
for i := n + 1 downto v + 1 do 
    a[i] := a[i - 1];
a[v + 1] := k; 

write('Day moi : ');
for i := 1 to n + 1 do write(a[i],' ');
readln
end.