var
 a:array[1..100]of integer;
 s,s1,i,max,n,nom:integer;
procedure vvod;
begin
 writeln('Vvedi n a posle massiv');
 read(n);
 for i:=1 to n do
  read(a[i]);
end;
procedure maximum;
begin
 for i:=1 to n do
  if max[i] then
  begin
  max:=a[i];
  nom:=i;
  end;
end;
procedure vstavka;
begin
read(s);
for i:=n+1 downto nom+1 do
 a[i]:=a[i-1];
 a[nom+1]:=s;
end;
procedure vyvod;
begin
 for i:=1 to n+1 do
  writeln(a[i]);
end;
begin
vvod;
maximum;
vstavka;
vyvod;
end.