wie wäre es denn mit den Fibronacci-Zahlen?
Delphi-Quellcode:
function TForm1.fibonit(n:integer): integer;
var
x,y,z,i:integer;
begin
x:=1;
y:=1;
i:=0;
repeat
i:=i+1;
z:=x+y;
y:=x;
x:=z;
until i=(n-2);
result:=z;
end;
mit dem Algorithmus "Neu=Uralt+Alt"
erscheint doch recht einfach und übersichtlich