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

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