program lista_uproszczona_wstaw_x_na_p;
type tab=array[1..10]of integer;
     lst = record
                elementy: tab;
                ile: integer
             end;
var
    i, v, p: integer;
    x: lst;
 
begin
	readln(x.ile);
	for i := 1 to x.ile do
    	read(x.elementy[i]);
 
	readln(v, p);
 
	for i := x.ile downto p do 
		x.elementy[i + 1] := x.elementy[i];
 
    x.elementy[p] := v;
	x.ile := x.ile + 1;
   for i := 1 to x.ile do write(x.elementy[i], ' ');
end.

cHJvZ3JhbSBsaXN0YV91cHJvc3pjem9uYV93c3Rhd194X25hX3A7CnR5cGUgdGFiPWFycmF5WzEuLjEwXW9mIGludGVnZXI7CiAgICAgbHN0ID0gcmVjb3JkCiAgICAgICAgICAgICAgICBlbGVtZW50eTogdGFiOwogICAgICAgICAgICAgICAgaWxlOiBpbnRlZ2VyCiAgICAgICAgICAgICBlbmQ7CnZhcgogICAgaSwgdiwgcDogaW50ZWdlcjsKICAgIHg6IGxzdDsKICAgIApiZWdpbgoJcmVhZGxuKHguaWxlKTsKCWZvciBpIDo9IDEgdG8geC5pbGUgZG8KICAgIAlyZWFkKHguZWxlbWVudHlbaV0pOwoKCXJlYWRsbih2LCBwKTsKCglmb3IgaSA6PSB4LmlsZSBkb3dudG8gcCBkbyAKCQl4LmVsZW1lbnR5W2kgKyAxXSA6PSB4LmVsZW1lbnR5W2ldOwogICAgCiAgICB4LmVsZW1lbnR5W3BdIDo9IHY7Cgl4LmlsZSA6PSB4LmlsZSArIDE7CiAgIGZvciBpIDo9IDEgdG8geC5pbGUgZG8gd3JpdGUoeC5lbGVtZW50eVtpXSwgJyAnKTsKZW5kLg==

NQoxIDIgMyA0IDUKOTkgMw==

5
1 2 3 4 5
99 3