8 lines
184 B
Ada
8 lines
184 B
Ada
function Factorial(N : Positive) return Positive is
|
|
Result : Positive := 1;
|
|
begin
|
|
if N > 1 then
|
|
Result := N * Factorial(N - 1);
|
|
end if;
|
|
return Result;
|
|
end Factorial;
|