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