Imports System
Public Class Program
Public Shared Sub Main()
Dim n1 As Double = 0, n2 As Double = 0, r As Double = 0
End Sub
End Class