import Control.Applicative
import Control.Monad
import Data.List
import Data.Monoid

f [d, p] = (d * (100 + p)) `div` 100

main = map read . words <$> getLine >>= print . f