Imports System

Public Module Module1

    Public Sub Main()

        Dim valor1 as Decimal

        Dim valor2 as Decimal

        Dim valor3 as Decimal

        Console.WriteLine("Ingrese el valor del valor1")

        valor1 = Console.ReadLine()

        Console.WriteLine("Ingrese el valor del valor2")

        valor2= Console.ReadLine()

        Console.WriteLine("Ingrese el valor del valor3")

        valor3 = Console.ReadLine()

        if valor1 + valor2 + valor3 / 3 AND valor1 + valor2 + valor3 / 3 AND valor1 + valor2 + valor3 / 3 then

​

            if  valor1 + valor2 + valor3 / 3 =  then

                Console.WriteLine("Es un triángulo EQUILATERO")

            elseif ladoA = ladoB OR ladoB = ladoC OR ladoA = ladoC then

                Console.WriteLine("Es un triángulo ISOSCELES")

            else

                Console.WriteLine("Es un triángulo ESCALENO")

            end if

        else

            Console.WriteLine("No es un triángulo")

        end if

    End Sub

End Module

​

​