Функция: простое число, совершенное число, число Фиббоначи, евклид, Факториал, степень. - Pascal ABC

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

Срочно нужна ваша помощь. все программы на школьном компе и я их не помню. они нужны срочно.

Решение задачи: «Функция: простое число, совершенное число, число Фиббоначи, евклид, Факториал, степень.»

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

procedure fibonachi(n,fn1,fn:integer);
          begin
          if n>0 then
             begin
             writeln(fn1+fn);
             fibonachi(n-1,fn,fn1+fn);
             end;
          end;
var n,a,b:integer;
begin
write('Vvedite chislo chlenov ryada Fidonachi: '); readln(n);
write('...sleduiushih za dvumya dannimi chlenami: '); readln(a,d);
fibonachi(n,a,b);
end.

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

Объявлены три переменные: n, a, b типа integer.
Ввод числа членов ряда Фибоначчи: readln(n).
Ввод двух членов ряда Фибоначчи: readln(a, d).
Вызов функции fibonachi(n, a, b).
В функции fibonachi(n, fn1, fn) происходит рекурсивный вызов функции с передачей значения fn1 в качестве fn и fn1+fn в качестве нового значения fn.
Если n больше нуля, то происходит вывод значения fn1+fn и рекурсивный вызов функции с передачей значения n-1 в качестве n, fn1 в качестве a и fn1+fn в качестве b.
Если n меньше или равно нулю, то происходит выход из функции.
После выхода из функции происходит вывод значения a и b.