module Main where

main :: IO ()
main = do
  { [d,p] <- getInts
  ; print (d * (100 + p) `div` 100)
  }

getInts :: IO [Int]
getInts = map read . words <$> getLine