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