Pseudocódigo 30

Con un ciclo FOR, elaborar un algoritmo el cual calcule el factorial de un numero.

Proceso Numero_factorial //Cruz Sosa Aldo ING.Bionedica "B"
    Definir n,f,facto Como Real;
    Escribir ' Dar un Numero ';
    Leer n;
    facto <-1;
    Para f<-1 hasta n hacer
        facto<-facto*f;
    FinPara
    Escribir "El factorial del numero: " ,n, " es ",facto;
FinProceso