main :: IO()
main = getLine >>= print.floor.(\[x, y] -> x + x * y / 100).map (read :: String -> Double).words