Pascal/Turbo Pascal - algoritmos??

como realizar un algoritmo que permita calcular el producto de los n primeros naturales, con la siguiente formula: N*(n-1)*(n-2)*...*3*2*1, que en términos matemáticos se le conoce como FACTORIAL DE N. Con la estructura SI

Funcion factorial

function fact(n:word):longint;
var
i:word;
val:longint;
begin
val:=1;
for i:=2 to n do begin
val:=val*i;
fact:=val
end;

Cualquier cosaa pregunta :)

saludoss

Se puede programar de oforma recursiva como:

function factorial ( n : integer ): longint;
begin
if n = 0 then factorial:=1
else factorial:= n * factorial(n-1);
end;

Espero que te haya servido de ayuda.

Ciao!