Найти сумму, разность, произведение и среднее геометрическое чисел - QBasic

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

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

Решение задачи: «Найти сумму, разность, произведение и среднее геометрическое чисел»

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

CLS
INPUT "A,B = "; a, b
 
PRINT "A + B ="; a + b
PRINT "A - B ="; a - b
PRINT "A * B ="; a * b
IF a * b >= 0 THEN
   PRINT "SR.GEOM. ="; SQR(a * b)
ELSE
   PRINT "NEOPREDELENO"
END IF
END

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

CLS — команда очистки экрана
INPUTA,B = ; a, b — ввод чисел A и B с клавиатуры, сопровождаемый сообщением «A,B =», значения переменных a и b не выводятся на экран
PRINTA + B =; a + b — вывод на экран суммы чисел A и B
PRINTA - B= ; a — b — вывод на экран разности чисел A и B
PRINTA B= `; a b` — вывод на экран произведения чисел A и B
IF a * b >= 0 THEN — условие, при котором выполняется следующий блок
PRINTSR.GEOM. =; SQR(a * b) — вывод на экран среднегеометрического значения чисел A и B
ELSE — условие, при котором выполняется следующий блок
PRINTNEOPREDELENO`` — вывод на экран сообщения «NEOPREDELENO»
END IF — завершение условия IF
END — завершение программы