Imports System

'Justin Koshy

'10/15

'Circle Program

Public Module Module1

    Public Sub Main()

        Const PI As Single = Math.Pi                  '1:Declare Variables

        Dim radius As Single 

        Dim area As Single

        Dim circumference As Single

        Console.Writeline("Enter the radius")          '2:Get User Input

        radius=Console.Readline()

        area=PI*(radius^2)                             '3: Calculations

        circumference=2*(PI*radius)

        Console.WriteLine("The area is " & area)

        Console.WriteLine("The circumference is " & circumference)  '4: Output

    End Sub

End Module