Module Zad4
    Sub main()
        Dim A, B, C, s, X, P As Integer
        Dim odg As String
        Do
            Do
                Console.Write("Unesite A stranicu: ")
                A = Console.ReadLine()
                If A <= 0 Then
                    Console.WriteLine("Trokut ne smije imat negativne stranice!")
                End If
            Loop While A <= 0
            Do
                Console.Write("Unesite B stranicu: ")
                B = Console.ReadLine()
                If B <= 0 Then
                    Console.WriteLine("Trokut ne smije imati negativne stranice!")
                End If
            Loop While B <= 0
            Do
                Console.Write("Unesite C stranicu: ")
                C = Console.ReadLine()
                If C <= 0 Then
                    Console.WriteLine("Trokut ne smije imat negativne stranice!")
                End If
            Loop While C <= 0
            s = (A + B + C) / 2
            X = s * (s - A) * (s - B) * (s - C)
            If X > 0 Then
                P = Math.Sqrt(X)
                Console.WriteLine("Trokut je moguć i njegova površina je {0}", P)
            Else
                Console.WriteLine("Trokut nije moguć!")
            End If
            Console.WriteLine("Ako želite nastaviti s radom: pritisnite bilo što")
            Console.WriteLine("Ako želite prekinuti program: upišite da")
            odg = Console.ReadLine()
        Loop While odg <> "da"
    End Sub
End Module