Пример. Вычислить N-е число Фиббоначчи.

program Fib;
 var n:byte;

function F(k:byte):word;
begin
 if k<2 then F:=1 else F:=F(k-1)+F(k-2); {рекурсивный вызов}
end;

begin
 write('введите номер числа Фиббоначчи ');
 readln(N);
 writeln(N,'-е число Фиббоначчи =',F(N));
 readln
end.

---