program kadai
    implicit none
integer  ::  n
integer,allocatable  ::  h(:)
integer  ::  i,ans,j

read(*,*) n
allocate(h(n))
read(*,*) h

ans=0
j=0
do i=1,n-1
    if (h(i)<h(i+1)) then
        ans=max(ans,j)
        j=0
    else
        j=j+1
    end if
end do
ans=max(ans,j)
write(*,*) ans

stop
contains



end program kadai