import Data.List
import Data.Char
import Data.Functor
import qualified Data.ByteString.Char8 as B

main = do
  xs <- getInts
  putStr . unlines $ map show $ take 3 (reverse . sort $ xs)

getInts :: IO[Int]
getInts = unfoldr (B.readInt . B.dropWhile isSpace) <$> B.getContents