import Data.List
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 = getContents >>= putStrLn . f . map ((\[x,y] -> (x,y)) . map (read :: String -> Int) . words) . tail . lines
