Imports System

Public Module Module1

    Public Sub Main()

        Dim lado1 as Decimal

        Dim lado2 as Decimal

        Dim hipotenusa as Decimal

        Console.WriteLine("Ingrese el lado del triángulo")

        lado1 = Console.ReadLine()

        Console.WriteLine("Ingrese la hipotenusa del triángulo")

        hipotenusa = Console.ReadLine()

        lado1 = lado1 * lado1

        hipotenusa = hipotenusa * hipotenusa

        lado2 = hipotenusa - lado1

        lado2 = Math.Sqrt(lado2)

        Console.WriteLine("El lado 2 del triángulo es " + lado2.toString)

    End Sub

End Module