Imports System
Public Module Module1
Public Sub Main()
dim r, S as decimal
console.WriteLine("enter radius in cm")
r = console.ReadLine()
S = 4*3.14*(r^2)
console.WriteLine("the surface of the circle with a radius of " & r & " is " & S)
End Sub
End Module