main :: IO ()
main = do
    input <- getContents
    let k:n:_ = map read (words input)
    print (k * n `div` 100 + k)