main = do
  getLine
  as<-map read.words<$>getLine
  putStr.solve $ as

solve as
  | point >= -1 = "Yes"
  | otherwise = "No"
  where
    point = sum ps - if 0 `elem` ps then 1 else 0
    ps = map f as
    f n
      | n `mod` 4 == 0 = 1
      | even n = 0
      | otherwise = -1