import           Data.Bool
import           Data.List
import           Data.Ratio

main :: IO ()
main = do
    getLine
    as <- map read . words <$> getLine
    bs <- map read . words <$> getLine
    putStrLn $ bool "No" "Yes" $ solve as bs

solve :: [Int] -> [Int] -> Bool
solve as bs = operateNo as bs >= leastNo as bs

operateNo :: [Int] -> [Int] -> Int
operateNo as bs = sum bs - sum as

leastNo :: [Int] -> [Int] -> Int
leastNo as bs = sum $ zipWith (*-*) as bs
    where a *-* b = if a < b then ceiling ((b - a) % 2) else 0
