9 lines
134 B
ObjectPascal
9 lines
134 B
ObjectPascal
|
function factorial(n: integer): integer;
|
||
|
|
begin
|
||
|
|
if n = 0
|
||
|
|
then
|
||
|
|
factorial := 1
|
||
|
|
else
|
||
|
|
factorial := n*factorial(n-1)
|
||
|
|
end;
|