Function muj_soucet(a, b)
c = a + b
muj_soucet = c
End Function

Function je_trojuhelnik(a, b, c)

If (a + b > c) And (b + c > a) And (a + c > b) Then
  vysledek = "Trojúhelník je "
  If (a = b) And (b = c) Then
          vysledek = vysledek & "rovnostranný "
          Else
          If (a = b) Or (b = c) Or (c = a) Then
              vysledek = vysledek & "rovnoramnenný "
          End If
          If (a * a + b * b = c * c) Or (b * b + c * c = a * a) Or (c * c + a * a = b * b) Then
             vysledek = vysledek & "pravoúhlý "
          End If
 
 End If
 Else
 vysledek = "Není trojúhelník"
End If
je_trojuhelnik = vysledek
End Function