import Prelude

main :: IO ()
main = do
  [d, p] <- map read . words <$> getLine
  print $ calc d p

calc :: Integral a => a -> a -> a
calc d p = floor $ (/ 100) $ fromIntegral $ d * (100 + p)