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 i,j,n,k,t,tam:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
for i:=1 to n-1 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('day sau khi sap xep giam dan la:');
for i:=1 to n do write(a[i],' ');
writeln;
write('nhap so K bat ky:');readln(k);
if k>a[1] then
begin
 for i:=n+1 downto 2 do a[i]:=a[i-1];
 a[1]:=k;
 for i:=1 to n+1 do write(a[i],' ');
end
else
begin
 i:=1;
 while t=0 do
 begin 
  if k>a[i] then t:=i;
  i:=i+1;
  end;
 for i:=n+1 downto t do a[i]:=a[i-1];
 a[t]:=k;
 for i:=1 to n+1 do write(a[i],' ');
end;
readln;
end.