{-# OPTIONS_GHC -O #-}

import Control.Monad
import Data.List
import qualified Data.ByteString.Lazy.Char8 as B

readIntL :: IO [Int]
readIntL = unfoldr(B.readInt.B.dropWhile(==' '))<$>B.getContents

main=do
    n <- readLn
    as <- take n <$> readIntL
    putStrLn $ if (od as) <= (p4 as) then "Yes" else "No"
    where
        od as = length $ filter odd as
        p4 as = length $ filter (\n -> n `mod` 4 == 0) as