Imports System.Text
Imports System.String
Imports System
Imports System.Math

Module Module1

    Sub Main()
        Dim ans As String = ""

        Dim getvaluelength As Integer


        Dim mojiretu As String = Console.ReadLine()

        Dim hen As Decimal = CType(mojiretu, Decimal) / 3





        Console.WriteLine("{0}", hen ^ 3)
        Console.ReadKey()
    End Sub




End Module