import System.IO
import Control.Monad

main = forever $ do
    [r0, w0, c, r] <- map (read :: String -> Double) . words <$> getLine
    when (r0/=0) $ do putStrLn . show . max 0 . ceiling $ (w0*c-r0) / r

