uses crt;
var i,k,j,n,tam,dem,x:integer;
a: array [1 50] of integer;
begin
clrscr;
write('n=');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
begin
if A[i]<a[j] then
begin
tam:=a[i];a[i]:=a[j];a[j]:=tam; end; end;
write('mang sau khi sap xep');
for j:=1 to n do
write(a[j]:5);
writeln;
begin
Write('Nhap vao so nguyen x : ');readln(x);
i := 1;
k:= n+1;
while (i<=n) and (k=n+1) do
begin
if x > a[i] then k := i;
i:= i + 1;
end;
for i := n downto k do a[i + 1] := a[i]; a[k]:= x;
writeln('DAY SAU KHI CHEN x:'); for i := 1 to n + 1 do write(a[i]:5);
end;
readln;
end