Imports System

Public Module Module1

    Public Sub Main()

        Dim radius As Single = 4

        Dim circumference As Single

        dim area As Single

        Const PI As Single = Math.PI

        area = PI * radius ^ 2

        circumference  = 2* PI * radius

        Console.WriteLine("Area = " & area)

        Console.WriteLine("Circumference =" & circumference)

    End Sub

End Module