n,*a=$<.read.split.map &:to_i
p n.times.count{|i|a[i+1]||0>a[i-1]+1}