import Control.Monad

main = do
 n <- read <$> getLine
 cds <- replicateM n (map read . words <$> getLine)
 print (proctor cds)

proctor = flip mod m . sum . map (\[c,d] -> div ((mod c m) + 1) 2 * (mod d m))
 where m = 1000000007