Imports System

Public Module Module1

    Public Sub Main()

        'Ejercicio Nro5:

        'Se desea ingresar los tres lados de un triangulo y decir si es equilatero, isòsceles o escaleno

        'Equilatero = 3 lados iguales

        'Isòsceles = 2 iguales y 1 distinto

        'Escaleno = 3 lados distintos, ningun lado igual 

        '1- Definimos e inicializamos las variables

        Dim lado1 as Integer = 0

        Dim lado2 as Integer = 0 

        Dim lado3 as Integer = 0 

        '2- Solicitamos al usuario que ingrese los 3 lados 

        Console.Write("Ingrese el primer lado")

        lado1 = Console.ReadLine()

        Console.WriteLine("Ingrese el segundo lado")

        lado2 = Console.ReadLine()

        Console.WriteLine("Ingrese el tercer lado")

        lado3 = Console.ReadLine()

        '3- Verifico si es equilatero, isòsceles o escaleno

        If lado1 = lado2 And lado1 = lado3 Then 

            Console.WriteLine("Es un triangulo Equilatero")

        Else 

            If lado1 <> lado2 And lado1 <> lado3 And lado2 <> lado3 Then

                Console.WriteLine("Es un triangulo Escaleno")

            Else 

                Console.WriteLine("Es un triangulo isòsceles")

            End If 

        End If 

    End Sub

End Module