module kkk
  sub main()
    
    dim n as integer = Integer.Parse(Console.ReadLine)
    dim p() as integer = Array.ConvertAll(Of String, Integer)(Console.ReadLine.Split(" "), AddressOf Integer.Parse)
    
    dim i as long
    dim j as long
    dim cnt as long
    
    for i = 0 to n - 1
    for j = 0 to i
    if not p(i) <= p(j) then
      exit for
    end if
  if j = i then
    cnt = cnt + 1
end if
next
next

console.writeline(cnt)

end sub
end module
    
    
    
      