main = getLine >> getLine >>= print . solve . map read . words

solve :: [Int] -> Int
solve (x : y : z : [])
    |  f x y z = 1
    | otherwise = 0
solve (x : y : z : re)
    | f x y z = 1 + solve (y : z : re)
    | otherwise = solve (y : z : re)

f :: Int -> Int -> Int -> Bool
f x y z = x /= y && y /= z && z /= x && (y == maximum [x, y, z] || y == minimum [x, y, z])