Module Module1

    Sub Main()

        Dim L As Integer = CInt(Console.ReadLine())
        Dim a As Double = L / 3
        Dim p As Double = a * a * (L - (2 * a))

        Console.WriteLine(p)

    End Sub

End Module
