import sequtils template `max=`*(x,y) = x = max(x,y) template `min=`*(x,y) = x = min(x,y) template `^`(n:int) : int = (1 shl n) proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "" .} proc scan(): int = while true: let k = getchar_unlocked() if k < '0': break result = 10 * result + k.ord - '0'.ord let n = scan() let AB = newSeqWith(n,(a:scan(),b:scan())) let L = AB.mapIt(it.a) let R = AB.mapIt(it.b-it.a) proc solve(s:int,l,r:int):int = if s == ^n - 1 : return 0 result = 1e10.int for x in 1.. 0 : continue let lPut = solve(s or ^x,L[x],r).max(l+R[x]) let rPut = solve(s or ^x,l,R[x]).max(L[x]+r) result .min= lPut result .min= rPut echo solve(^0,L[0],R[0])