import Control.Applicative
import Control.Monad
import Data.Functor
import Data.List
import Data.Maybe

f :: [Int] -> Bool
f xs = let mx = maximum xs in sum xs > 2 * mx

cond :: a -> a -> Bool -> a
cond t f p = if p then t else f

main = getLine >> map read . words <$> getLine >>= putStrLn . cond "Yes" "No" . f