program answer
  implicit none
  integer :: N, i, j, a
  integer, allocatable :: H(:), s(:)
  read(*,*) N
  allocate(H(N))
  read(*,*) H
  allocate(s(N))

  s(:)=0
  do i = 1, N
     do j = 0, N-i-1
        if(H(i+j)>=H(i+j+1)) then
           s(i)=s(i)+1
        else
           if(i==1) then
              a=s(i)
           else if(s(i)>a) then
              a=s(i)
           end if
           exit
        end if
     end do
  end do

  write(*,*) maxval(s)
  stop
 end program answer