Степень, факториал, Фибоначчи... - Pascal ABC

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

Помогите пожалуйста. Переписал в точности как написал преподаватель. 1. Дано целое число "а" и натуральное (целое неотрицательное) число "n". Вычислить "a в степени n". Другими словами, необходимо составить программу, при исполнении которой значения переменных "а" и "n" не меняются, а значение некоторой другой переменной (например, b) становится равным "a в степени n". (При этом разрешается использовать и другие переменные.) 2. Дано натуральное (целое неотрицательное) число "а" и целое положительное число "d". Вычислить частное "q" и остаток "r" при делении "а" на "d", не используя операций "div" и "mod". 3. Дано натуральное "n", вычислить " (n!(0!=1 , n!=n*(n-1)! "). 4. Последовательность Фибоначчи определяется так: "a"нулевое=0 , "a"первое = 1 , "a"((индекс справа внизу)k)="a"((индекс справа внизу)k-1)+"a"((индекс справа внизу)k-2) при k>=2 . Дано n , вычислить "a" в степени n . Та же задача, если требуется, чтобы число операций было пропорционально logn . (Переменные должны быть целочисленными.) Указание. Пара соседних чисел Фибоначчи получается из предыдущей умножением на матрицу ||1 1|| ||1 0|| - так что задача сводится к возведению матрицы в степень n.

Решение задачи: «Степень, факториал, Фибоначчи...»

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

function factor (n: int): int;
 begin
  if n=0
    then factor:=1
    else factor:=n*factor (n-1)
end;

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

В коде представлена функция с именем factor, которая принимает целочисленный аргумент n.
Если n равно 0, то значение функции будет равно 1.
В противном случае, функция будет вычислять факториал числа n путем умножения n на результат вызова функции factor с аргументом n-1.
Результат вычисления функции будет возвращен в качестве целочисленного значения.