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 SubEnd ModuleПример работы программы:L = 75S = 447,623277445956