Imports System
Public Module Module1
Public Sub Main()
Dim R as decimal
Dim pi as decimal = 3.14159265359
Dim V as decimal
Console.WriteLine("Insert Radius.")
R = Console.ReadLine()
V = 4/3*pi*R*R*R
Console.WriteLine("The Volume is:")
Console.WriteLine(V)
End Sub
End Module