7 lines
141 B
Text
7 lines
141 B
Text
|
function RecursiveFactorial(n : Integer) : Integer;
|
||
|
|
begin
|
||
|
|
if n>1 then
|
||
|
|
Result := RecursiveFactorial(n-1)*n
|
||
|
|
else Result := 1;
|
||
|
|
end;
|