(defn abs [a b]
  (if (>= a b)
      (- a b)
      (- b a)))

(defn solve [a b c d]
  (if (<= (abs a c) d)
      "Yes"
      (if (and (<= (abs a b) d) (<= (abs b c) d))
          "Yes"
          "No")))

(println (solve (read) (read) (read) (read)))



