import Control.Monad
import Data.Maybe
import qualified Data.ByteString.Char8 as B

main = do
 getLine
 cds <- map (map (fst . fromJust . B.readInteger) . B.words) . B.lines <$> B.getContents
 print (proctor cds)

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