Imports System

Public Module Module1

    Public Sub Main()

        Dim raduis As Double

        Console.WriteLine("please enter the radius")

        raduis=Console.ReadLine()

        Console.WriteLine("the perimeter of the circle is:")

        Console.WriteLine(2*3.14*radius)

        Console.Writeline("the area of the circle is:")

        Console.WriteLine(3.14*radius*radius)

    End Sub

End Module