n=int(input('n='))
a=[int(input('a[%d]='%i)) for i in range (n)]
k=int(input('k='))
vt=0
for i in range (1,n):
    if (a[i-1]>=k>=a[i]):
        vt=i
a.insert(vt,k)
print('day a sau khi chen:',*a)

$\color{red}{\text{#Daoanhviet96}}$

program ct;
uses crt;
var n, k, i, pos: integer;
    a: array[1..100] of integer;
    
begin
clrscr;
write('Nhap n = '); readln(n);
write('Nhap cac phan tu: ');
for i := 1 to n do read(a[i]);
write('Nhap k = '); readln(k);

for i := 1 to n - 1 do
    if (a[i] >= k) and (k >= a[i + 1]) then pos := i;
if k >= a[1] then pos := 0;
if a[n] >= k then pos := n;

write('Mang A sau khi chen k la: ');
for i := 1 to pos do write(a[i], ' ');
write(k, ' ');
for i := pos + 1 to n do write(a[i], ' ');

readln
end.