Imports System

Public Module volume_sphere

    dim radius1 as decimal

    dim pi as decimal = 3.14159

    Public Sub Main()

        Dim volume As Decimal

        Console.WriteLine("enter radius")

        radius1 = Console.ReadLine()

        volume = (4/3)*pi*radius1*radius1*radius1

        console.writeline("- - - - - - - - - - - - - - - - - - - - - - - -")

        Console.Write("volume is ")

        Console.write(volume):console.writeline(" centimetre cubed")

        console.writeline("- - - - - - - - - - - - - - - - - - - - - - - -")

    End Sub

End Module