Řešení:
Obsah S pravoúhlého pravoúhlého trojúhelníku lze vypočítat ze zadaného obvodu O podle vzorce:

Module Module1

    Sub Main()

        Dim obvod, obsah As Double

        Console.Write("Zadejte obvod trojuhelniku: ")
        obvod = Console.ReadLine

        If obvod > 0 Then
            obsah = obvod ^ 2 / (12 + 8 * Math.Sqrt(2))
            Console.WriteLine("Obsah trojuhelniku: {0:0.000}", obsah)
        Else
            Console.WriteLine("Vypocet nelze provest")
        End If

        Console.ReadLine()

    End Sub

End Module