import Data.List
import Data.Bool

main = do
    n <- read <$> getLine
    as <- map read . words <$> getLine
    let x4 = length $ filter ((==0) . (`rem` 4)) as
        x2 = subtract x4 . length $ filter ((==0) . (`rem` 2)) as
        xN = n - x4 - x2
    putStrLn . bool "No" "Yes" $ (x2 == 0 && xN <= x4+1) || (xN <= x4)
