program c
  integer :: N,i,mx,mx1
  integer,allocatable :: A(:)
  read(*,*) N
  allocate(A(N))
  do i=1,N
  read(*,*) A(i)
  enddo

  mx=maxval(A)
  do i=1,N
     if(mx.eq.A(i)) then
        if(i.eq.1) then
           write(*,'(i0)') maxval(A(2:N))
        elseif(i.eq.N) then
           write(*,'(i0)') maxval(A(1:N-1))
        else
           mx1=max(maxval(A(1:i-1)),maxval(A(i+1:N)))
           write(*,'(i0)') mx1
        endif
     else
        write(*,'(i0)') mx
     endif
  enddo

end program c

