import Data.List  -- sort

height_of_top3 :: [Int] -> [Int]
height_of_top3 = (take 3) . reverse . sort

main = do
  s <- getContents               -- get all input
  let hs = map read . lines $ s  -- break it into [Int]
      ts = height_of_top3 hs     -- the answer
  putStr . unlines . map show $ ts