'Tyler Katsoff

'10/19/2020

'Volume of a Cone

Imports System

Public Module Module1

    Public Sub Main()

        Dim volume as Single

        Dim radius as Integer 

        Dim height as Integer                               'Declare variables

        console.write("Enter the radius:")

        radius = Console.ReadLine

        console.WriteLine("Enter the height:")

        height = Console.ReadLine                           'Get user input

        volume = math.PI * radius ^ 2 * height / 3          'Calculate

        Console.WriteLine("Volume = " & volume)             'Output

    End Sub

End Module