main :: IO ()
main = putStrLn . show . truncate . (\[d, p] -> d + (d * p / 100.0)) . map read . words =<< getLine