Imports System
Public Class Program
Public Shared Sub Main()
Dim r As Single = 5
Dim h As Single = 13
Dim SurfaceArea As Double = Math.PI * r * (r + Math.Sqrt((h * h) + (r * r)))
Console.WriteLine("Surface Area of Cone = " & SurfaceArea)
End Sub
End Class
' run:
'
' Surface Area of Cone = 297.326427779484
'