Imports System

Public Module Module1

    Public Sub Main()

        Dim hipotenusa as Decimal = 0

        Dim Cateto1 as Decimal = 0

        Dim Cateto2 as Decimal = 0

        Console.WriteLine("Ingrese la hipotenusa")

        hipotenusa = Console.ReadLine()

        Console.WriteLine("Ingrese el valor de uno de los lados")

        Cateto1 = Console.ReadLine()

        hipotenusa = hipotenusa * hipotenusa

        Cateto1 = Cateto1 * Cateto1

        Console.WriteLine("Ingrese la hipotenusa")

        hipotenusa = Console.ReadLine()

        Console.WriteLine("Ingrese el valor de uno de los lados")

        Cateto1 = Console.ReadLine()

        hipotenusa = hipotenusa * hipotenusa

        Cateto1 = Cateto1 * Cateto1

        Cateto2 = hipotenusa - Cateto1

        Cateto2 = Math.Sqrt(Cateto2) 'Math.Sqrt() = para sacar raiz cuadrada

        Console.WriteLIne("El otro cateto es" + Cateto2.ToString())

    End Sub

End Module