Imports System

Public Module Module1

    Public Sub Main()

        Dim diameter as integer

        Dim radius as integer

        Dim area as integer

        Dim circumfrence as integer

        Console.writeline("Please enter the diameter of your circle")

        diameter = Console.readline()

        radius = diameter / 2

        Console.writeline("The radius is " & radius &"")

        area = (radius^2 * 3.14)

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

        circumfrence = (diameter * 3.14)

        Console.writeline("The circumfrence is " & circumfrence &"")

        Console.readline()

    End Sub

End Module