По данным x, y, z вычислить S как среднее квадратичное - QBasic

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

по данным x,y,z вычислить S как: их среднее арифметическое если x+y>z; Среднее кваратичное , если x+y<Z Среднее геометрическое , если x+y=z

Решение задачи: «По данным x, y, z вычислить S как среднее квадратичное»

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

CLS
INPUT "X,Y,Z = "; x, y, z
 
IF x + y > z THEN s = (x + y + z) / 3
IF x + y < z THEN s = SQR((x ^ 2 + y ^ 2 + z ^ 2) / 3)
IF x + y = z THEN s = (x * y * z) ^ (1 / 3)
PRINT "S ="; s
END

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

CLS — очистка экрана
INPUTX,Y,Z = ; x, y, z — ввод значений X, Y, Z с клавиатуры
Если X + Y больше Z, то s = (x + y + z) / 3 — вычисление среднего арифметического
Если X + Y меньше Z, то s = SQR((x ^ 2 + y ^ 2 + z ^ 2) / 3) — вычисление среднего квадратичного
Если X + Y равно Z, то s = (x * y * z) ^ (1 / 3) — вычисление среднего гармонического
PRINTS =; s — вывод значения S на экран
END — завершение программы