Imports System
Public Class Program
Public Shared Sub Main()
Dim a As Double = 5
Dim _base As Double = 8
Dim area As Double = (1 / 2.0) * _base * Math.Sqrt((a * a) - ((_base * _base) / 4))
Console.Write("Area of Isosceles Triangle = " & area)
End Sub
End Class
' run:
'
' Area of Isosceles Triangle = 12
'