import Control.Monad
import Control.Applicative
import Data.List
import qualified Data.Vector as V
import Debug.Trace as De

main = do
  [n, x, t] <- (map read . words) <$> getLine
  let u = div (n+x-1) x
  let ans = t * u
  putStrLn $ show ans