import Data.List -- sort
import Control.Monad -- replicateM

readInt = read <$> getLine :: IO Integer
arrayInt = map read . words <$> getLine :: IO [Integer]
writeln x = putStrLn $ unwords x :: IO ()

main = do
    n <- readInt
    v <- arrayInt
    c <- arrayInt
    print $ sum $ filter (0<) $ map (\(x,y) -> x - y) $ zip v c
