import Control.Applicative ((<$>))

main :: IO ()
main = do
  [a,b] <- map read . words <$> getLine
  print $ 50*a + floor (50*fromIntegral a/(0.8+0.2*fromIntegral b))