Imports System
Public Module Module1
Public Sub Main()
Dim a As Integer = 5
Dim equilateral_triangle_area As Double = Math.Sqrt(3) / 4 * (a * a)
Console.Write("Equilateral Triangle Area = " + CStr(equilateral_triangle_area))
End Sub
End Module
' run:
'
' Equilateral Triangle Area = 10.8253175473055
'