{-# LANGUAGE MultiWayIf #-}

main :: IO ()
main = do
  n <- read <$> getLine :: IO Int
  as <- map read.words <$> getLine :: IO [Int]
  let l4 = length $ filter (\a -> a`mod`4==0) as
      lo = length $ filter odd as
      le = n - l4 - lo
  putStrLn $ if | lo <= l4 -> "Yes"
                | (l4 - lo)==1 && le==0 -> "Yes"
                | le == n -> "Yes"
                | otherwise -> "No"
