program main
 implicit none
 
 integer :: i,c(50),v(50),k,s = 0,n
 
 read(*,*)n
 read(*,*)(v(i),i=1,n)
 read(*,*)(c(i),i=1,n)
 
 do i = 1, n
   k = v(i) - c(i)
   if  (k > 0) then
     s = s + k
   end if
 end do
 
 write(*,*)s
end program main
 