import Data.List
import qualified Data.ByteString.Char8 as BS
 
 
f::[[Int]]->[(Int,Int)]
f []=[]
f ((a:b:[]):xs)=(b,a):f xs
 
f2::[(Int,Int)]->Int->String
f2 [] _="Yes"
f2 ((b,a):xs) t=if b<a+t then "No" else f2 xs (t+a)
 
main = do
       x<-getLine
       ys<-BS.getContents
       let ts=BS.lines ys
       putStrLn $ f2 (sort $ f [map (read . BS.unpack) (BS.words e)::[Int]|e<-ts]) 0