Module SpecialPythagoreanTriplet \'My solution to Project Euler Problem 9
Sub Main()
For a = 0 To 1000
For b = a + 1 To 1000
For c = b + 1 To 1000
If a + b + c = 1000 AndAlso a ^ 2 + b ^ 2 = c ^ 2 Then
Console.WriteLine(a * b * c)
Exit Sub
End If
Next
Next
Next
End Sub
End Module