Описать процедуру SortDec3(A, В, С), меняющую содержимое переменных - Pascal ABC

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

Описать процедуру SortDec3(A, В, С), меняющую содержимое переменных А, В, С таким образом, чтобы их значения оказались упорядоченными по убыванию (А, В, С — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры упорядочить по убыванию два данных набора из трех чисел: (А1 В1 С1,)и(А2, В2, С2). Помогите пожалуйста(

Решение задачи: «Описать процедуру SortDec3(A, В, С), меняющую содержимое переменных»

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

 
Sub SortDec(A As Integer, B As Integer, C As Integer)
  Dim t As Integer
    Do
     If A < B Then
         t = A
         A = B
         B = t
     End If
     If B < C Then
         t = B
         B = C
         C = t
      End If
    Loop Until (A > B) And (B > C)
End Sub
 
Private Sub Command1_Click()
    Dim A1 As Integer, B1 As Integer, C1 As Integer, A2 As Integer, B2 As Integer, C2 As Integer
    A1 = InputBox("Введите A1", , 29): B1 = InputBox("Введите B1", , 21): C1 = InputBox("Введите C1", , 31)
    SortDec A1, B1, C1
    MsgBox "A1 = " & A1 & vbTab & "B1 = " & B1 & vbTab & "C1 =" & C1 & vbTab
    A2 = InputBox("Введите A2", , 11): B2 = InputBox("Введите B2", , 3): C2 = InputBox("Введите C2", , 20)
    SortDec A2, B2, C2
    MsgBox "A2 = " & A2 & vbTab & "B2 = " & B2 & vbTab & "C2 =" & C2 & vbTab
End Sub

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

В процедуре SortDec3 переменные A, B и C инициализируются значениями, введенными пользователем в соответствующих диалоговых окнах.
Переменная t используется для временного хранения значения одной из переменных A, B или C.
Цикл Do-Loop выполняется до тех пор, пока условие (A > B) And (B > C) истинно. Это условие гарантирует, что значения переменных A, B и C будут упорядочены в возрастающем порядке.
Внутри цикла происходит проверка условия A < B. Если это условие истинно, то значение переменной t присваивается значению переменной A, значение переменной A присваивается значению переменной B, а значение переменной B присваивается значению переменной t. Это гарантирует, что значение переменной t будет всегда меньше значения переменной A.
Затем проверяется условие B < C. Если это условие истинно, то значение переменной t присваивается значению переменной B, значение переменной B присваивается значению переменной C, а значение переменной C присваивается значению переменной t. Это гарантирует, что значение переменной t будет всегда меньше значения переменной B.
После выполнения цикла, значения переменных A, B и C будут упорядочены в возрастающем порядке.
Вторая часть процедуры аналогична первой, но с другими значениями переменных A, B и C.