Imports System

Public Module Module1

    Public Sub Main()

        dim radius, area as decimal

        console.WriteLine("Enter radius as cm")

        radius = console.ReadLine()

        area = 4*3.14159269398*radius^2

        console.WriteLine("Area = " & area & "cm")

    End Sub

End Module