Вычислить a в степени n - QBasic

Дано число a . Вычислить a в степени n. Pешить через qbasic, используя операторы цикла for next

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

CLS
INPUT "A = "; a
INPUT "N = "; n
 
p = 1
IF n < 0 THEN a = 1 / a
 
FOR i = 1 TO ABS(n)
   p = p * a
NEXT i
PRINT "P ="; p
END

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

CLS - очистка экрана
INPUTA = ; a - ввод значения переменной a с помощью функции INPUT
INPUTN = ; n - ввод значения переменной n с помощью функции INPUT
p = 1 - инициализация переменной p значением 1
IF n < 0 THEN a = 1 / a - проверка на отрицательное значение n и изменение значения a на обратное, если условие выполняется
FOR i = 1 TO ABS(n) - начало цикла, который будет выполняться ABS(n) раз
p = p * a - умножение значения переменной p на значение переменной a
NEXT i - переход к следующей итерации цикла
PRINTP =; p - вывод значения переменной p с помощью функции PRINT
END - конец программы