main = getLine >> getContents >>= print . solve . map (map read . words) . lines

solve :: [[Integer]] -> Integer
solve [] = 0
solve ([c, d] : xs) = mod (d * div (c + 1) 2) 1000000007 + solve xs