Sorry, hab mich falsch ausgedrückt, ich meinte 3 gradige Rekursion, also:
Delphi-Quellcode:
procedure recursion(n: paramter);
begin
if not (Endbedingung) then
begin
recursion(modify1(n));
recursion(modify2(n));
recursion(modify3(n));
end;
end;
EDIT: Das mit der Rekursion ist aber auch vertrackt