main :: IO ()
main = do
  n <- getLine
  pn <- map (read :: String -> Int) . words <$> getLine
  print $ ans pn

ans :: [Int] -> Int
ans [a,b,c] = if (a-b)*(b-c)>0 then 1 else 0
ans (a:b:c:pn) = if (a-b)*(b-c)>0 then 1 + ans (b:c:pn) else ans (b:c:pn)