Factorial (Programa en Pascal)

Programa sencillo:

 Program Factorial;
uses crt;
var
  numero,cota:longint;
  contador:integer;
begin
  clrscr;
  write(‘Escriba un n£mero: ‘);
  read(cota);
  contador:=1;
  numero:=1;
 repeat
    numero:=numero*contador;
    contador:=contador+1;
 until
    contador>cota;
    writeln(‘El factorial del n£mero es: ‘,numero);
    readkey;
end.

Programa un poco más elaborado:

program factorial_numero;

    uses crt;

    var
    n,m,contador:integer;
    factorial:int64;
    bandera:boolean;
    seguir:char;

begin
 bandera:=true;
 while bandera do
   begin
     clrscr;
     writeln(‘Programa para Calculo de Factorial de un Numero’);
     writeln;
     contador:=1;
     n:=0;
     factorial:=1;
     while n=0 do
       begin
        write(‘Ingrese el numero al cual se le va a calcular el factorial: ‘);
        readln(n);
        writeln;
        if n<1 then
           writeln (‘Numero debe ser mayor que 1. Ingrese nuevamente.’);
       end;
     writeln;
     m:=n+1;
     while contador<m do
       begin
           factorial:=factorial*contador;
           contador:=contador+1;
       end;
     writeln(‘El Factorial de ‘,n,’ es: ‘,factorial);
     writeln;
     write(‘¨Desea calcular otro Factorial? (s/n)’);
     readln (seguir);
     if seguir<>’s’ then
        bandera:=false;
   end;

end.