module Main where

import Control.Applicative
import Control.Monad
import Data.List

main :: IO ()
main = do
    getLine
    as <- fmap read . words <$> getLine :: IO [Int]
    let nd = filter odd $ as
    let (n4, n2) = partition ((== 0) . (`mod` 4)) (filter even as)
    let (sd, s2, s4) = (length nd, length n2, length n4)

    let p1 = sd <= s4
    let p2 = and [sd - 1 == s4, s2 == 0]
    let p3 = and [sd == 0, even s2]

    let ans = case () of
            _ | p1        -> True
              | p2        -> True
              | p3        -> True
              | otherwise -> False

    if ans then putStrLn "Yes" else putStrLn "No"