main = do
    [d, p] <- map read . words <$> getLine
    print $ d + d * p `div` 100