Imports System

Public Module Module1

    Public Sub Main()

        'CONDICIONALES

        dim num1 as integer

        dim num2 as integer

        Console.WriteLine("Escriba por favor el primer nro para compararlo")

        num1 = Console.ReadLine()

        Console.WriteLine("Escriba por favor el segundo nro para compararlo")

        num2 = Console.ReadLine()

        if num1 > num2 then

            'Verdadero

            Console.WriteLine("el nro1 es mayor al nro2")

        else

            'falso

            Console.WriteLine("el nro2 es mayor al nro1 o son iguales...")

            end if

        Dim lad1 As Double

        Dim lad2 As Double

        Dim lad3 As Double

        ' definir variables

        ' datos de entrada

        Console.WriteLine("ingrese lado1")

        lad1 = Double.Parse(Console.ReadLine())

        Console.WriteLine("ingrese lado2")

        lad2 = Double.Parse(Console.ReadLine())

        Console.WriteLine("ingrese lado3")

        lad3 = Double.Parse(Console.ReadLine())

        ' proceso

        If lad1=lad2 And lad1=lad3 Then

            Console.WriteLine("Triangulo equilatero")

        Else

            If lad1<>lad2 And lad1<>lad3 And lad2<>lad3 Then

                Console.WriteLine("Triangulo escaleno")

            Else

                If lad1=lad2 Or lad1=lad3 Or lad1=lad3 Then

                    Console.WriteLine("Triangulo isosceles")

                End If

            End If

        End If

    End Sub

End Module