import Data.Char(isSpace)
import qualified Data.Vector.Unboxed as U
import qualified Data.ByteString.Char8 as C

main = do
    n <- readLn
    vs <- U.unfoldrN n (C.readInt . C.dropWhile isSpace) <$> C.getLine
    cs <- U.unfoldrN n (C.readInt . C.dropWhile isSpace) <$> C.getLine
    let vcsPlus = U.filter (>0) $ U.zipWith (-) vs cs
    print $ U.sum vcsPlus