uses crt;
var i,j,v,n,tmp,x:longint;
a:array[0..1000000] of longint;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]);
// a
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] < a[j] then
begin
tmp:=a[i];
a[i]:=a[j];
a[j]:=tmp;
end;
// b
readln(x);
for i:=1 to n do
if a[i] > x then
v:=i;
for i:=1 to v do
a[i-1]:=a[i];
a[v]:=x;
for i:=0 to n do write(a[i],' ');
readln;
end.