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

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

[natka]

А мне, честно говоря, без разницы, с десяток выведет, преподаватель больше все равно не потребует :-)

[Lapp]

А мне, честно говоря, без разницы, с десяток выведет, преподаватель больше все равно не потребует :-)

фи, какая проза..

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

Угу, точно.
Ну, может еще десяток можно вытянуть - но даже самый мощный комп заткнется довольно скоро.
Может, это и оффтоп, но просто именно фибоначевские числа есть классический пример для демонстрации динамичекого программирования.