import Control.Monad
import Control.Applicative
import Data.Functor
import Data.List
import Data.Char

readInt = readLn :: IO Int

main = replicateM 10 readInt >>= mapM_ print . take 3 . sortBy (flip compare) 