main = do
    _ <- getLine
    v <- map read . words <$> getLine :: IO [Int]
    c <- map read . words <$> getLine :: IO [Int]
    putStrLn $ show $ foldr (\xy z -> z + max 0 (fst xy - snd xy )) 0 (zip v c)
