Imports System

Public Module Module1

    Public Sub Main()

        'Ejercicio: Se desea ingresar la hipotenusa y uno de los lados de un triángulo. Calcular el otro lado y mostrarlo en pantalla.

        Dim lado1 as Decimal

        Dim lado2 as Decimal

        Dim hipotenusa as Decimal

        Console.Writeline("Ingrese el lado del triangulo: ")

        lado1 = Console.Readline() 

        Console.Writeline("Ingrese la hipotenusa: ")

        hipotenusa = Console.Readline() 

        lado1 = lado1 * lado1

        hipotenusa = hipotenusa * hipotenusa

        lado2 = hipotenusa - lado1

        lado2 = Math.Sqrt(lado2)

        Console.Writeline("El lado2 del triángulo es: " + lado2.Tostring()) 

    End Sub

End Module