Вычислить средний объем продукции, выпускаемый одним предприятием - QBasic

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

Здравствуйте, очень прошу помочь мне решить задачи на тему "Линейные алгоритмы". Заранее спасибо!

А. За год размер квартплаты повышалась дважды. Первый раз на А%, а второй на В%. Год назад сумма оплаты составляла К рублей в месяц. Вычислить текущий размер квартплаты. В. Известен объем продукции, выпускаемый N предприятиями отрасли. Вычислить средний объем продукции, выпускаемый одним предприятием. С. Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности. D. На производство 1 кв. метра ткани затрачивают 15 минут. Определить количество ткани, выпущенное за Т часов при ширине полотна L. E. Временной интервал. Заданы моменты начала и конца некоторого промежутка времени в часах, минутах и секундах (в пределах одних суток). Найти продолжительность этого промежутка в тех же единицах измерения F. Округленное время. Текущее время (часы, минуты, секунды) задано тремя переменными: h, m, s. Округлить его до целых значений минут и часов. Например, 14 ч 21 мин 45 с преобразуется в 14 ч 22 мин или 14 ч, а 9 ч 59 мин 23 с – соответственно в 9 ч 59 мин или 10 ч. G. Русские единицы длины. 1 верста = 500 саженей; 1 сажень = 3 аршина; 1 аршин = 16 вершков; 1 вершок = 44,45 мм. Длина некоторого отрезка составляет p метров. Перевести ее в русскую неметрическую систему. H. Хитрая степень Возвести заданное число x в степень n, не используя многократного умножения и возведения в степень выше квадрата.

Решение задачи: «Вычислить средний объем продукции, выпускаемый одним предприятием»

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

PRINT "a ^ n"
INPUT "vvedite a"; a
INPUT "vvedite n"; n
b = 1
FOR i = 1 TO ABS(n) \ 2
    IF n >= 0 THEN b = b * a ^ 2 ELSE b = b / a ^ 2
NEXT
IF n MOD 2 <> 0 THEN
    IF n >= 0 THEN b = b * a ELSE b = b / a
END IF
PRINT b

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

Вывод сообщения a ^ n
Ввод переменной a
Ввод переменной n
Вычисление значения переменной b
Цикл от 1 до ABS(n) \ 2
Проверка условия n >= 0
Умножение значения переменной b на a ^ 2
Проверка условия n < 0
Разделение значения переменной b на a ^ 2
Проверка условия n MOD 2 <> 0
Проверка условия n >= 0
Умножение значения переменной b на a
Проверка условия n < 0
Разделение значения переменной b на a
Вывод значения переменной b