let doIt () =
    let S = stdin.ReadLine () |> fun line -> line.Split () |> Seq.map float
    S |> Seq.sort |> Seq.skip 1 |> Seq.take 4 |> Seq.average |> printfn "%.2f"

doIt ()