import Control.Monad
import Data.List

main :: IO ()
main = replicateM 3 getLine >>= mapM_ putStrLn . map snd . reverse . sort . flip zip ["A", "B", "C"] . map pairs

pairs :: String -> (Int, Int)
pairs s = let [x, y] = map read . words $ s in (x, -y)