import Control.Applicative ((<$>), (<*>))

main :: IO ()
main = do
  solve <$> getl read <*> getl read >>= print

solve :: Int -> Int -> Int
solve k s = 100 * s `div` (100 - k)

getl :: (String -> a) -> IO a
getl f = f <$> getLine