Факториал в паскале)

Question

Доброе утро!) 
Скажите, а есть ли в паскале встроенная функция вычисления факториала? а если есть, то как к ней обратиться? 
Спасибо и счастливого дня каждому)

user_41848586 · Accepted Answer

Нет. Встроенной нет. 
function Factorial(n: word): LongInt; 
begin 
if n=0 then Factorial := 1 else Factorial := n*Factorial(n-1); 
end; 
или 
function Factorial(n: word): LongInt; 
var 
fact: longint; 
begin 
fact := 1; 
if n=0 then exit; 
for n := 1 to n do 
fact := fact*n; 
Factorial := fact; 
end;

user_19944120 · Answer

program alexq; 
uses crt; 
var 
y: double; 
i,n: integer; 
begin 
clrscr; 
y:=1; 
write('n->'); 
readln(n); 
for i:=1 to n do 
y:=y*i; 
writeln('otvet: ',y:15:0); 
readkey; 
end.

maksim_riaskov_1 · Answer

Как таковой нет! Надо самой написать эту функцию.

f_f_292 · Answer

ты сама можешь написать эту функцию - и потом ее использовать для всех чисел -