(let* ((n (read))
       (a (make-array n))
       (cnt (make-array 2 :initial-element 0)))
  (dotimes (i n)
    (let ((ai (read)))
      (if (zerop (mod ai 4))
          (incf (aref cnt 1))
          (when (zerop (mod ai 2))
            (incf (aref cnt 0))))
      (setf (aref a i) ai)))
  (format t "~A~%"
          (if (<= n (+ (aref cnt 0) (* (aref cnt 1) 2)))
            "Yes" "No")))