Известна длина окружности. Найти площадь круга, ограниченного этой окружностью. Visual basic

Module Module1

Dim L As Double

Const Pi = 3.1415926535897931

Sub Main ()

Console. Write ("L = ")

L = Double. Parse (Console. ReadLine)

L = L / (2 * Pi)

Console. WriteLine ("S = " + (Pi * L * L). ToString)

Console. ReadKey ()

End Sub

End Module

Пример работы программы:

L = 75

S = 447,623277445956