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