module Main where

import           Control.Monad
import           Data.List

readInt :: String -> Int
readInt = read

main :: IO()
main = do
  [a, b, c] <- map readInt . words <$> getLine
  print $ solve a b c

solve :: Int -> Int -> Int -> Int
solve a b c =  (\nums -> head nums * 10 + foldl1' (+) (tail nums)) (sortBy (flip compare) [a, b, c])
