n=gets.to_i-1
a,b=$<.map{|e|e.split.map &:to_i}.transpose
sa,sb=[a,b].map &:sum
p sb-[0,sb-sa,*(0...n).map{|i|a[i]+b[i]-sa}].max+1