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