Imports System

Public Module Module1

    Dim a As Double

    Dim b As Double

    Dim c As Double

    Dim total As Double

    Public Sub Main()

        Console.WriteLine("Enter the value of a : ")

        a = Console.ReadLine()

        Console.WriteLine("Enter the value of b: ")

        b = Console.ReadLine()

        a = a ^ 2

        b = b ^ 2

        c = a + b

        c= c ^ 0.5

        Console.WriteLine("The hypotenuse of the triangle is " & c & ".")

    End Sub

End Module