isKadomatsu :: Ord a => [a] -> Int
isKadomatsu xs = if ((a/=b) && (b/=c) && (c/=a)) && (maximum[a,b,c] == b || minimum[a,b,c] == b)
				then 1
				else 0
		where [a,b,c] = xs

takethree :: [a] -> [[a]]
takethree (a:b:c:[]) = [[a,b,c]]
takethree xs = (take 3 xs) : takethree (tail xs)

main = do
	getLine
	getLine >>= print . sum . map isKadomatsu . takethree . map (read::String->Integer) . words