main = do
  _ <- getLine
  as <- msp read . words <$> getLine
  let o = length [ a | a <- as, odd a]
  let f = length [ a | a <- as, a `mod` 4 == 0 ]
  let t = if length as - o - f > 0 then 1 else 0
  putStr if f + 2 > o + t then "Yes" else "No"