Даны четыре действительных числа. Упорядочить их по убыванию - QBasic

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

Даны четыре действительных числа. Упорядочить их по убыванию. делается как-то через IF, но не могу представить как

Решение задачи: «Даны четыре действительных числа. Упорядочить их по убыванию»

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

CLS
INPUT "a"; a
INPUT "b"; b
INPUT "c"; c
INPUT "d"; d
 
IF a < b THEN SWAP a, b
IF a < c THEN SWAP a, c
IF a < d THEN SWAP a, d
IF b < c THEN SWAP b, c
IF b < d THEN SWAP b, d
IF c < d THEN SWAP c, d
PRINT a; b; c; d

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

Вот что происходит в этом коде:

CLS — команда очистки экрана.
INPUT a; a — ввод первого числа и его сохранение в переменной a.
INPUT b; b — ввод второго числа и его сохранение в переменной b.
INPUT c; c — ввод третьего числа и его сохранение в переменной c.
INPUT d; d — ввод четвёртого числа и его сохранение в переменной d.
Если первое число (a) меньше второго (b), то с помощью команды SWAP a, b числа меняются местами.
Если первое число (a) меньше третьего (c), то с помощью команды SWAP a, c числа меняются местами.
Если первое число (a) меньше четвёртого (d), то с помощью команды SWAP a, d числа меняются местами.
Если второе число (b) меньше третьего (c), то с помощью команды SWAP b, c числа меняются местами.
Если второе число (b) меньше четвёртого (d), то с помощью команды SWAP b, d числа меняются местами.
Если третье число (c) меньше четвёртого (d), то с помощью команды SWAP c, d числа меняются местами.
PRINT a; b; c; d — вывод на экран полученного результата.