import Data.List
import qualified Data.ByteString.Char8 as BC
import Data.Maybe (fromJust)

test :: (Ord t, Num t) => t -> [(t, t)] -> String
test _ [] = "Yes"
test n ((t, l):xs)
    | n + t <= l = test (n+t) xs
    | otherwise  = "No"

f :: [(Int, Int)] -> String
f = test 0 . sortOn snd

main :: IO()
main = BC.getContents >>= putStrLn . f . map ((\[x,y] -> (x,y)) . map (fst . fromJust . BC.readInt) . BC.words) . tail . BC.lines
