Задача 6 Урок 21

Урок 21

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

 var k, max, a, min, count: integer;

 function path(k, max, a: integer; var min, count: integer): integer;

 begin
   if count < max then
   begin
     inc(count);
     min := a + k;
     a := k;
     k := min;
     path(k, max, a, min, count);
   end;
  path := min;
 end;

 begin
   max := 8;
   k := 1;
   a := 0;
   min := 1;
   count := 1;
   write(path(k, max, a, min, count));
   readln();
 end.

КОНСОЛЬ

21