Pascal/Turbo Pascal - factorial

buen dias, necesito de su ayuda pues unmaestro nos encargo un programa en turbopascal k de el factorial de cualkier numero comprendido entre el 1 y el 20, y que ademas de inicio presente mi nombre, despues de darle enter k me despliege la respuesta, agradecere su ayuda,no se nada de turbopascal.

Hola Juan Carlos.

El factorial de un número entero positivo se define como el producto de todos los números naturales anteriores o iguales a él. Se escribe n!, y se lee "n factorial". (Por definición el factorial de 0 es 1: 0!=1)

Por ejemplo, 5! = 5·4·3·2·1 = 120

Hice un programa (A mi manera) que realiza esto pero solo funciona con los números del 1 al 12 porque me econtré con el problema de que las variables de tipo longint solo pueden almacenar como máximo hasta el 2147483647 y no conozco una manera de almacenar un número más grande.

Espero te sirva de algo.

Uses Crt;
Var Numero,n, Contador : LongInt;

Begin
ClrScr;
Numero := 1;
WriteLn(' Willy');
While Numero <> 0 do
Begin
Write('Ingrese el numero: (ingrese 0 para salir)');
WriteLn;
ReadLn(Numero);
n := Numero;
For Numero := Numero downto 2 do
Begin
Contador := n * (Numero - 1);
n := Contador;
end;
WriteLn(n);
End;
End.

For Numero := Numero downto 2 do

¿¿¿???

Numero := 1;
WriteLn(' Willy');
While Numero <> 0 do

¿¿¿??? Para hacer eso se usa REPEAT

Los reales tienen un rango más amplio que el longint.

Un saludo

Tienes razón Daniel.

Numero := 1; Está de más porque más adelante hay un ReadLn(Numero);

For Numero := Numero downto 2 do Esto es porque el programa debe multiplicar por el número inmediato inferior cada vez hasta llear al 1. (Observa que luego hay un:
Contador := n * (Numero - 1);)

WriteLn(' Willy'); Esto es porque Juan Carlos pidió que el programa muestre un nombre.

While Numero <> 0 do Esto es para que el programa finalize si el usuario igresa un 0
Aunque estóy consciente de que hay otras maneras

Lo de los reales, honestamente no lo sabía.

Me alegra que haya alguien que haga correciones y ayude a que aprendamos más.
Bienvenidos los comentarios y críticas.
Saludos a todos!

Syntax error, identifier expected but ordinal const found
buenas..el error que muestro me está dando cuando compilo programa que estoy haciendo de tarea,,,,

program vueltoarreglo;
type z = (1...7) of Integer; (está aquí el error)
mb = (1000,100,50,25,10,5,1) of interger;
var
pa,de,v,vu:Integer;
begin
writeln('Ingrese el monto a pagar y la cantidad de dinero con la que pagará');
readln(pa);
readln(de);

gracias por la ayuda