Задача 6 урок 21: Получение числа Фиббоначи по номеру - Вариант решения

задача 6 урок 21

Пользователь получает на вход целое положительное число N напишите рекурсивную функцию, которая вернет число Фиббоначи стоящии под этим номером

Решение

program task_6_lesson21;
function fib(n: integer): integer;
begin
  if (n = 0) then
    result := 0
  else if (n = 1) then
    result := 1
  else
    result := fib(n - 1) + fib(n - 2);
end;
var n: integer;
begin
  readln(n);
  write(fib(n - 1)); // без -1 сдвиг вправо на 1
  readln
end.

Консоль

6
5