$N=<>;@A=glob<>;
print~~grep+($A[$_+1]-$A[$_])*($A[$_+2]-$A[$_+1])<0&&$A[$_]!=$A[$_+2],0..$N-3