Расчет чисел Фибоначчи - Free Pascal

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

программа для расчета чисел Фибоначчи

Решение задачи: «Расчет чисел Фибоначчи»

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

uses crt;
var  i,n: integer;
 
function fib(k: integer): integer;
begin
 if k<=2 then fib:=1
 else
  fib:=fib(k-1)+fib(k-2);
end;
 
begin
 clrscr;
 write('N>=2: ');
 readln(n);
 write('0 ');
 for i:=1 to n do
 write(fib(i),' ');
 readln;
end.

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

В функции fib используются две вложенные функции fib(k-1) и fib(k-2). Это указывает на то, что функция fib рекурсивная и вычисляет числа Фибоначчи.
Если k меньше или равно 2, функция возвращает 1, так как числа Фибоначчи с порядковыми номерами 0 и 1 равны 1.
В противном случае функция возвращает сумму чисел Фибоначчи с порядковыми номерами k-1 и k-2.
В основной программе вводится число n (больше или равно 2) с помощью функции readln().
Затем с помощью функции write выводится число 0, а затем с помощью цикла for и функции write выводятся числа Фибоначчи с порядковыми номерами от 1 до n.
В конце программы программа ожидает нажатия клавиши с помощью функции readln().