RosettaCodeData/Task/Factorial/DWScript/factorial-2.dw

function RecursiveFactorial(n : Integer) : Integer;
begin
   if n>1 then
      Result := RecursiveFactorial(n-1)*n
   else Result := 1;
end;