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

[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.

[volvo]

даже самый мощный комп заткнется довольно скоро.

Я бы сказал, очень скоро - при n = 48 по-моему... Дальше - переполнение LongInt и все, нет веры результатам... Хорошо, если компилировали в {$R+, Q+}... Но я почему-то все чаще вижу именно обратные примеры... Все почему-то работают с {$R-, Q-}

Oops... klem4 уже написАл ...