Imports System

Public Module Module1

    Public Sub Main()

        Dim Radius, SurfaceArea As Decimal

        'Radius

        console.WriteLine("Enter the radius")

        Radius=console.ReadLine()

        'Surface Area

        SurfaceArea= 4*3.14*Radius^2

        console.WriteLine("The surface area of a sphere with a radius of " & Radius & " is")

        console.WriteLine(SurfaceArea & " cm²")

    End Sub

End Module