n=gets.to_i+1
a=[0]+gets.split.map(&:to_i)+[0]
l=(0..n).map{[0]*3005}
r=(0..n).map{[0]*3005}
(1..n).each{|w|(0..n-w).each{|i|y=r[w-1][i];l[w][i]=[x=l[w-1][i+1],a[i]>a[i+w]?y+1:0].max;r[w][i]=[y,a[i]<a[i+w]?x+1:0].max}}
p [l[n][0],r[n][0]].max