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

Урок 21

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

var k, num, a, fibo, count: integer;

 procedure path(k, num, a, fibo, count: integer);

 begin
   if count <= num then
   begin
     write(fibo, ' ');
     fibo := a + k;
     a := k;
     k := fibo;
     path(k, num, a, fibo, count + 1);
   end;
 end;

 begin
   num := 8;
   k := 1;
   a := 0;
   fibo := 1;
   count := 0;
   path(k, num, a, fibo, count + 1);
   readln();
 end.

КОНСОЛЬ

1 1 2 3 5 8 13 21