main :: IO ()
main = interact $ show . solve . map read . words

solve :: [Int] -> Int
solve [d, p] = (d * (100 + p)) `div` 100