import Control.Monad
import Data.List

calc :: Int -> [[Int]] -> Bool
calc _ [] = True
calc n (x:xs) = if (x !! 1) < n + (x !! 0) 
    then False
    else calc (n + (x !! 0)) xs

main :: IO ()
main = do
    n <- read <$> getLine :: IO Int
    ab <- map (map read . words) <$> replicateM n getLine :: IO [[Int]]
    putStrLn $ if calc 0 (sortOn (!!1) ab) then "Yes" else "No"
