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