warum 30 und nicht 35?!?

[kkkiwi]

Hallo ihr

warum gibt diese Function 30 aus, und nicht 35!?

Delphi-Quellcode:

function lies_zahl(z:integer):integer;
begin
if z>1 then
begin lies_zahl:= lies_zahl(z-1)+z*z; end
else lies_zahl:=1;
end;

procdure TForm1.Button1click(sender: TObject);
begin
edit1.text:=inttostr(Lies_zahl(4));
end;

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]