open System open Microsoft.FSharp.Core [] type cal [] type cm let R() = stdin.ReadLine() let toMeasure = LanguagePrimitives.FloatWithMeasure let C = R() |> float |> fun x -> toMeasure x:float let Rin, Rout = let t = R().Split() |> Array.map float |> Array.map (fun x -> toMeasure x:float) t.[0], t.[1] let V = 0.25 * Math.PI ** 2.0 * (Rout + Rin) * (Rout - Rin) * (Rout - Rin) V * C |> stdout.WriteLine