Imports System

Public Module Module1

    Public Sub Main()

        dim numero1 as integer

        dim numero2 as integer

        dim numero3 as integer

        numero1 = 0

        numero2 = 0

        numero3 = 0

        console.WriteLine("ingrese el primer lado")

        numero1 = console.ReadLine()

        console.WriteLine("ingrese el segundo lado")

        numero2 = console.ReadLine()

        console.WriteLine("ingrese el tercer lado")

        numero3 = console.ReadLine()

        If  numero1 = numero2 and numero1 = numero3 and numero2 = numero3 then

            console.WriteLine("el triangulo es equilatero")

        elseif numero1 <> numero2 and numero1 <> numero3 and numero2 <> numero3 then 

            console.WriteLine("el triangulo es escaleno")

        else 

            console.WriteLine("el triangulo es isosceles")

    End Sub

End Module