Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim name as string

        Dim area1 as decimal = 0

        Dim pi as decimal = 3.14159

        Dim radius1 as integer = 0

        Console.WriteLine("What is your name?")

        name = console.ReadLine()

        Console.WriteLine("Enter the radius of the circle in cm's")

        radius1 = Console.ReadLine()

        area1= pi*radius1*radius1

        console.Write("the area of a circle is ")

        console.Writeline(area1)

        console.Writeline("written by")

        console.Write(name)

    End Sub

End Module

​