
import Control.Monad
import Data.List
import Data.Ord(comparing)

main :: IO ()
main = do
     xs <- replicateM 10 getLine
     mapM_ print $ getHigher3 $ map read xs

getHigher3 :: [Int]->[Int]
getHigher3 xs = take 3 $ rSort xs

rSort :: (Ord a) => [a]->[a]
rSort = sortBy ( flip compare )