import Control.Applicative
import Data.List
main = do
    lines <-  words <$> getContents
    let ns = map (read :: String -> Int) lines
    sequence . map putStrLn . map show . take 3 . reverse $ sort ns