import Data.Functor ((<$>))
main = do
  [d,p] <- map read . words <$> getLine
  putStrLn $ show $ div (d*(100+p)) 100