Cyklus While--prosím o radu – Delphi – Fórum – Programujte.com

DObrý den prosím o radu mám takový menší problém potřeboval bych pomoci s jedním příkladem kdy mám následující úkol
počítadlo od 1 do 21 kde mi musí vycházet následující čísla 1,2,3,5,8,13,21 (1+2=3;1+2+3=5;atd...)vůbec si nevím rady. Prosím o odpověd
//myslím si že tam musí být 3 nebo 4 proměnné a ciklus While Děkuji

radši to udělej rekurzivní fcí....
snad je to jasné return bude neco jako n + funkce(n - 1)

Já bych to řešil obyčejným cyklem:

var i, n: integer;
begin
write('1');
n:= 2;
for i:=1 to 21 do begin
write( ',', n );
n:= n+i;
end;
writeln;
end;

To Vít : Mám takový pocit, že tvůj cyklus se prostě provede 21x, jenže v zadání je, že jakmile n bude 21, tak ukončit.

no mam takovej pocit ze se scitaj jen posledni dve cisla...
pak 1+2+3 neni 5 :D
jedine co musi je ulozit si predchozi a soucasne cislo... a pak postupne scitat ...

predchozi := 0;

soucasne := 1;

write( soucasne,' ');

while ( soucasne <= 21 ) do begin

  vysledek := soucasne+predchozi;

  predchozi := soucasne;

  soucasne := vysledek;

  write( soucasne,' ');

end;

writeln;