main = do
    [a, b, c, d] <- map read . words <$> getLine
    putStrLn $ if ans a b c d then "Yes" else "No"

ans a b c d = cond1 && cond2
    where
        cond1 = (abs a - b) <= d
        cond2 = (abs a - c) <= d
