import Data.List

main = do
  li <- getLine
  let [d,p] = map read $ words li
  print $ compute d p

compute d p = d * (100 + p) `div` 100