import Data.List

main = do
    getLine
    vs <- map read . words <$> getLine :: IO [Int]
    cs <- map read . words <$> getLine :: IO [Int]
    let ds = zipWith (-) vs cs
    let ans = sum $ filter (> 0) ds
    print ans