f x y = if x<y then (y-x)`div`2 else y-x 
cond x y p = if p then x else y

getIntegers = map read . words <$> getLine :: IO [Integer]

main = getLine >> zipWith f <$> getIntegers <*> getIntegers >>= putStrLn . cond "Yes" "No" . (>=0) . sum