main :: IO ()
main = interact $ (++ "\n") . show . solve . map read . words

solve :: [Int] -> Int
solve [a, b, c, d] = last (0 : [ i | i <- [0..a], i * c <= b, i + i * c <= d ])
solve _ = 0