Найти максимальное среди двух чисел, не используя условный оператор

' Наши числа
DIM A AS INTEGER
DIM B AS INTEGER
 
' Индекс массива ниже
DIM U AS INTEGER
 
' Массив в котором будет хранится A и B
DIM M(0 TO 1) AS INTEGER
 
INPUT "A= ", A
INPUT "B= ", B
 
M(0)=A
M(1)=B
 
U = ABS(A-B)-(A-B)
 
' Если U=0 тогда цикл пропускается и A>=B
' Если получится что U НЕ равен 0, тогда B>A
' и уменьшаем U до тех пор пока он не будет
' равным единице
WHILE U>1
    U=U-1
WEND
 
PRINT "MAX="; M(U)

        ' Массив для A и B
DIM M(1)
CLS   ' Очистка экрана
INPUT "Vvedite A: ", A
INPUT "Vvedite B: ", B
   M(0) = B           ' A и B в массив
   M(1) = A
   C = SGN(A-B)    ' Если а > b тогда C будет 1, иначе -1, если равны - 0
   C = (C + 1) \ 2  ' Конверсия C под индекс массива
PRINT "Max:"; M(C)

INPUT "Vvedite A: ", a
INPUT "Vvedite B: ", b
PRINT (a + b) / 2 + ABS(a - b) / 2