import Control.Applicative

main = do
    xs <- init . map (map read . words) . lines <$> getContents
    putStr . unlines $ do
        [r0, w0, c, r] <- xs
        return . show . max 0 . ceiling $ (w0*c-r0) / r

