main = do
	[h, w, n, k] <- return . map (read :: String -> Integer) . words =<< getLine
	
	putStrLn $
		if k >= h + w
			then "NO"
			else if (h + w - 1 + n - 1) `mod` n == k - 1
				then "YES"
				else "NO"