Module M
    sub Main()
        dim l = Console.ReadLine().Split()'.Select(Function(x) Integer.Parse(x)).ToList()
        dim a = Integer.Parse(l(0)), b = Integer.Parse(l(1)), c = Integer.Parse(l(2)), d = Integer.Parse(l(3))
        dim x = System.Math.Abs(b-a) <= d and System.Math.Abs(c-b) <= l(3)
        dim y = System.Math.Abs(c-a) <= d
        if x or y = True then
            Console.WriteLine("Yes")
        else
            Console.WriteLine("No")
        end if
    end sub
end Module