Используйте ветвление чтобы вводимые 3 числа выводились в порядке убывания - QBasic

Формулировка задачи:

Помогите пожалуйста напишите программу для Qbasic. Используйте ветвление чтобы вводимые 3 числа выводились в порядке убывания , а если они равны программа выводила это.

Решение задачи: «Используйте ветвление чтобы вводимые 3 числа выводились в порядке убывания»

Листинг программы

CLS
 
PRINT "Vetvlenie"
INPUT "a = "; a
INPUT "b = "; b
INPUT "c = "; c
 
IF a = b AND a = c THEN
    PRINT "a = b = c"
ELSE
    IF a > b AND a > c THEN
        IF b > c THEN
            PRINT a, b, c
        ELSE
            PRINT a, c, b
        END IF
    ELSE
        IF b > a AND b > c THEN
            IF a > c THEN
                PRINT b, a, c
            ELSE
                PRINT b, c, a
            END IF
        ELSE
            IF c > a AND c > b THEN
                IF a > b THEN
                    PRINT c, a, b
                ELSE
                    PRINT c, b, a
                END IF
            END IF
        END IF
    END IF
END IF
END

Объяснение кода листинга программы

CLS

Вывод сообщения Vetvlenie
Ввод значения переменной a
Ввод значения переменной b
Ввод значения переменной c
Проверка условия (a = b AND a = c)
Если условие истинно, то вывод a = b = c
Если условие ложно, то переход к следующему условию
Проверка условия (a > b AND a > c)
Если условие истинно, то проверка условия (b > c)
Если условие истинно, то вывод a, b, c
Если условие ложно, то проверка условия (b > a AND b > c)
Если условие истинно, то проверка условия (a > c)
Если условие истинно, то вывод b, a, c
Если условие ложно, то проверка условия (c > a AND c > b)
Если условие истинно, то проверка условия (a > b)
Если условие истинно, то вывод c, a, b
Если условие ложно, то проверка условия (c > b AND c > a)
Если условие истинно, то вывод c, b, a
Если условие ложно, то вывод завершен
Конец программы