var a:array[1..200] of integer;
n, i, j, element:integer;
begin
//считываем массив
read(n);
for i := 1 to n do read(a[i]);
//считываем новый элемент, который будет вставлять
read(element);
//идем с конца
i := n;
while i >= 1 do
begin
    if a[i] mod i = 0 then
    begin
        for j := n downto i + 1 do a[j + 1] := a[j];
        a[i + 1] := element;
        n := n + 1;
    end;
    i := i - 1;
end;
for i := 1 to n do write(a[i], ' ');
end.