main = do
  line <- getLine
  let 
    [a,b,c,d] = map read $ words line :: [Int]
    judge =
      if (abs (a - c) <= d || (abs (a-b) <= d && abs (b-c) <= d))
        then "Yes"
        else "No"
    in
      putStrLn $ judge
