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