Ich verstehe die Rekursion noch nicht richtig

[Phoenix]

Wirklich rekursiv wäre folgendes:

Delphi-Quellcode:

function TForm1.Rekursiv(n: integer): integer;
begin
   if n = 1 then
      result := 1
   else
      result := sqr(n) + rekursiv(n-1);
end;