main = getLine >>= print . f . map (read :: String -> Double) . words where
    f [d, p] = floor $ d + d * p / 100