Для вычисления X в степени N можно использовать следующий алгоритм:

Инициализировать переменную result, присвоить ей значение 1.Пока N > 0:
Если N четное, то умножить X на само себя, поделить N на 2.Если N нечетное, то умножить result на X, вычесть из N 1 и поделить N на 2.Вернуть результат result.

Программа на BASIC:

INPUT "Введите число X: ", X
INPUT "Введите степень N: ", N
LET result = 1
WHILE N > 0
IF N MOD 2 = 0 THEN
LET X = X * X
LET N = N / 2
ELSE
LET result = result * X
LET N = (N - 1) / 2
END IF
WEND
PRINT "Результат: "; result

Эта программа позволяет пользователю ввести число X и степень N, после чего рассчитывает X в степени N с помощью описанного алгоритма.