import Control.Monad
import Control.Applicative
import Data.List
import qualified Data.Map as M
--import qualified Data.Vector as V
--import qualified Data.Vector.Mutable as VM

getBysplit = map read . words <$> getLine

main :: IO()
main = do
  n <- readLn :: IO Int
  v <- getBysplit :: IO [Int]
  c <- getBysplit :: IO [Int]
  let lst = (map (\(x, y) -> if x - y > 0 then x - y else 0) . zip v) c
  let ans = sum lst
  print $ ans
