Module Program
Sub Main(args As String())
Dim angleA, angleB, angleC
Console.WriteLine("Enter the value for the first angle.")
angleA = Console.ReadLine
Console.WriteLine("Enter the value for the second angle.")
angleB = Console.ReadLine
Console.WriteLine("Enter the value for the third angle.")
angleC = Console.ReadLine
If (angleA * angleA) + (angleB * angleB) = (angleC * angleC) Or
(angleA * angleA) + (angleC * angleC) = (angleB * angleB) Or
(angleB * angleB) + (angleC * angleC) = (angleA * angleA) Then
Console.WriteLine("The triangle is a right triangle. (An angle is a 90-degree angle.)")
Else
If angleA = angleB And angleB = angleC Then
Console.WriteLine("The triangle is an equilateral triangle. (All angles are equal)")
ElseIf angleA = angleB Or angleB = angleC Or angleC = angleA Then
If (angleA * angleA) + (angleB * angleB) = (angleC * angleC) Or
(angleA * angleA) + (angleC * angleC) = (angleB * angleB) Or
(angleB * angleB) + (angleC * angleC) = (angleA * angleA) Then
Console.WriteLine("The triangle is an isosceles triangle AND ALSO a right triangle. (Two angles are equal and an angle is a 90-degree angle.)")
Else
Console.WriteLine("The triangle is an isosceles triangle. (Two angles are equal.)")
End If
Else
Console.WriteLine("The triangle is a scalene triangle.")
End If
End If
End Sub
End Module