module Main where

main :: IO ()
main = do
    [d, p] <- fmap read . words <$> getLine :: IO [Double]
    let tax = d * (p / 100)
    let amt = floor (d + tax)
    print amt