Imports System

Public Module Module1

    Public Sub Main()

        dim A,P,r as double

        console.WriteLine("enter r")

        r=console.ReadLine()

        A=3.14 * r^2

        Console.WriteLine("the area is " & A)

        P= 2 * 3.14 * r

        console.WriteLine("the perimeter is " & P)

    End Sub

End Module