блок-схема: Заданы три числа. Определить, есть ли среди них хотя бы одна пара равных по величине

[СергейКл]

Заданы три числа. Определить, есть ли среди них хотя бы одна пара равных по величине.
программный код:

Private Sub ПУСК_Click()
Dim a, b, c As Single
a = Val(InputBox("введите значение a="))
b = Val(InputBox("Введите значение b="))
c = Val(InputBox("Введите значение c="))
If (a = b) Or (a = c) Or (a = b) Then MsgBox ("одна пара равна по величине") Else: MsgBox ("не одна пара не равна по величене")
End Sub

C написанием кода проблем нет, а вот с написанием алгоритма проблема , помогите

[OlegPrograming5]

Программу вы написали. А что такое «алгоритм» по-вашему? Блок-схема?

[СергейКл]

да, блок схема

[Dvoishnik]

http://pro-prof.com/archives/1462