Составить программу, которая определяет, является ли треугольник равносторонним. OpenOffice.org Basic

Предыдущий
вопрос Следующий
вопрос

Sub IsEquilateralTriangle()

Dim a As Double
Dim b As Double
Dim c As Double
a = InputBox("Введите длину стороны A:")
b = InputBox("Введите длину стороны B:")
c = InputBox("Введите длину стороны C:")
If a = b And b = c Then
MsgBox "Треугольник равносторонний"
Else
MsgBox "Треугольник не является равносторонним"
End If

End Sub