Řešení:
Tři hodnoty mohou být stranami pravoúhlého trojúhelníku v případě, že z těchto hodnot lze sestrojit trojúhelník
(viz. 03.01) a zároveň vyhovují vztahu:

Module Module1

    Sub Main()

        Dim a, b, c As Double

        Console.Write("Zadejte preponu a: ")
        a = Console.ReadLine
        Console.Write("Zadejte preponu b: ")
        b = Console.ReadLine
        Console.Write("Zadejte odvesnu c: ")
        c = Console.ReadLine

        If a > 0 And b > 0 And c > 0 And a + b > c And a + c > b And b + c > a Then
            If a ^ 2 + b ^ 2 = c ^ 2 Then
                Console.WriteLine("Trojuhelnik je pravouhly")
            Else
                Console.WriteLine("Trojuhelnik neni pravouhly")
            End If
        Else
            Console.WriteLine("Nezadany strany trojuhelniku")
        End If

        Console.ReadLine()

    End Sub

End Module