program v11_zad1;

const

max=100;

var

n,i,r: integer;

a: array[1..max] of integer;

ul,iz: Text;

begin

assign(ul,'niz01.in');

assign(iz,'niz01.out');

reset(ul);rewrite(iz);

readln(ul,n);

for i:= 1 to n do

readln(ul,a[i]);

readln(ul,r);

i:=n;

while (i>0) and (a[i]>r) do

begin

a[i+1]:=a[i];

i:=i-1;

end;

a[i+1]:=r;

for i:= 1 to n+1 do

writeln(iz,a[i]);

close(ul);close(iz);

end.