import Control.Applicative
import Control.Monad
import qualified Data.List as L
import qualified Data.Char

main ::IO()
main = do
  pqr <- map read . words <$> getLine :: IO [Int]
  putStrLn $ show $ solve pqr

solve :: [Int] -> Int
solve pqr =
  let [i,j,k] = L.sort pqr in
  i+j
