Imports System

Public Module Module1

    Public Sub Main()

        Dim radius As Double

        Dim height As Double

        Const constpi = 3.141

        Console.WriteLine("what is the radius of your cone?")

        radius = Console.ReadLine

        Console.WriteLine("what is the height of your cone?")

        height = Console.ReadLine

        Console.WriteLine("the volume of your cone is " & (1 / 3) * (height * (constpi * radius ^ 2)))

        Console.ReadLine()

    End Sub

End Module