Фибоначчи рекурсия, как выводить на экран каждое число Опции

[natka]

Нужна программа, которая выводит на экран N первых чисел последовательности Фибонначи. Для вычисления нужно использовать рекурсивную функцию.
Программа есть, но она выводит только последнее число, не могу понять как сделать, чтобы она выводила все числа. Может кто подскажет.

Код

var
N:integer;
function fib(n:integer):longint;
begin
   case n of
     0: fib:= 0;
     1,2:fib:= 1
     else
     fib:=fib(n-1)+fib(n-2);
   end;
end;

begin
readln(N);
WriteLn(fib(N));
readln;
end.

[klem4]

Дальше не стал, долго...итеративный способ надо применять если хочеться больше..

Начиная с 47 уже и длинную арифметику ;)

uses crt;

procedure Fib(n : LongInt);
var
   a,b,c,i : LongInt;
begin
   if (n = 1) or (n = 2) then writeln(1)
    else begin
       a := 1;
       b := 1;
       c := 0;
       i := 2;
       repeat
          c := a + b;
          a := b;
          b := c;
          inc(i);
       until i = n;
       writeln(c);
     end;
end;

var
   n,i : LongInt;
begin
   clrscr;
   //readln(n);
   n := 47;
   writeln;
   for i := 1 to n do Fib(i);
   readln;
end.