Ejercicio 12

 Plantee e implemente un programa en PASCAL que calcule el factorial de un
número entero positivo introducido por teclado.


PROGRAM factorial(input,output);
(*Programa que calcule el factorial de un numero positivo introducido por teclado*)

VAR
        n:integer;
        fact:integer;
        I:integer;


BEGIN
        write('Escriba un numero:');
        read(n);
        fact:=1;
        FOR I:=1 TO n DO
        fact:=fact*I;
        writeln('El factorial del numero introducido es:',fact,'');
END.


Ejemplo de ejecución