import Control.Monad

main :: IO ()
main = do
  ls <- replicateM 9 getLine
  let ls' = map words ls
      ansl = map (format . solve) ls'
  mapM_ putStrLn ansl

solve :: [String] -> (String,Int,Int)
solve [name,x,y] = (name,num,pro)
  where x' = read x
        y' = read y
        num = x' + y'
        pro = 200 * x' + 300 * y'
format :: (String,Int,Int) -> String
format (name,num,pro) = name ++ " " ++ (show num) ++ " " ++ (show pro)