import Control.Applicative

main = do
  [d, p] <- map read . words <$> getLine
  print $ d * (100 + p) `div` 100