-- Question C 

import Control.Applicative
import Control.Monad

main = do
  n <- readLn ::IO Int
  xs <- map read . words <$> getLine
  putStrLn $ show (check xs n)
  
check :: [Int] -> Int -> String
check xs n
  | (m4th + 1 == oddth ) && (m4th + oddth == n) = "Yes"
  | m4th >= oddth  = "Yes"
  | otherwise = "No"
  where m4th = length (filter (\p -> p `mod` 4 == 0) xs)
        oddth = length (filter odd xs)
  


