import Data.Functor
import Data.List

getLines :: IO [String]
getLines = lines <$> getContents

readLines :: Read a => IO [a]
readLines = map read <$> getLines


main :: IO()
main = (readLines :: IO [Int]) >>= mapM_ print . (take 3 . sortBy (flip compare))
