Pascal 018 ► Calcular Factorial de n

Ejercicio 018: Calcular el factorial de un número dado.

Program Pascal_018;
Uses crt;
Var
    n, fac : integer;
Begin
    fac := 1;
    Write('Ingresa número ');
    ReadLn(n);
    while n > 0 do
    begin
        fac := fac * n;
        n := n-1;
    end;
    WriteLn('El factorial es: ', fac);
    ReadKey;
End.

El factorial de un número es la multiplicación de todos los enteros positivos desde 1 hasta n.

Ejemplo:
Si n = 3, entonces:
n! = 1 x 2 x 3 = 6
6 es el factorial de 3