import Control.Applicative
import Data.Bool (bool)

main :: IO ()
main = getLine >> solve <$> f >>= putStrLn
  where
    f = map read <$> words <$> getLine

solve :: [Int] -> String
solve xs = let mx = maximum xs
               rs = sum xs - mx
           in bool "No" "Yes" (mx < rs)
