Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim num1 as integer

        dim num2 as integer

        dim num3 as integer

        Console.WriteLine("escriva por favor el angulo de ariba ")

        num1 = console.ReadLine()

        Console.WriteLine("escriva por favor el angulo de las izquierda")

        num2 = console.ReadLine()

        Console.WriteLine("escriva por favor el angulo de la derecha")

        num3 = console.ReadLine()

        if num1 + num2 + num3 = 180  then

            'verdadero

            Console.WriteLine("es un triangulo ")

        else

            'falso

            Console.WriteLine("no puede ser un triangulo la suma de sus lados da mas o menos de 180")

        end if

    End Sub

End Module

​