Código Delphi [-] function calcula(s) begin ... for ... Calcula(s-1); end; end;
function calcula(s) begin ... for ... Calcula(s-1); end; end;