Imports System

'Sumeet Telang

'10/18/2021

'Circles Program Part 2

Public Module Module1

    Public Sub Main()

        Dim area, circumference, radius As Single            'Declare Variables Step 1

        Const PI As Single = Math.PI

        Console.WriteLine("Enter a radius")                    'User Input Step 2

        radius = Console.ReadLine()                         

        area = PI * radius ^ 2                                   'Calculations Step 3

        circumference = 2 * PI * radius 

        Console.WriteLine("area = " & area)                  'Output Step 4

        Console.WriteLine("circumference = " & circumference)

    End Sub

End Module