main :: IO ()
main = do
  [a, b, c, d] <- map read . words <$> getLine
  print $ solve a b c d

solve :: Integral a => a -> a -> a -> a -> a
solve a b c d =
  maximum [v | v <- [0 .. a], m <- [0 .. b], v * c == m, v + m <= d]