ALGORITMO FACTORIAL DE UN NUMERO

Inicio

var: fact,resp;

principal

Escribir("Digite el número al que desea sacarle el factorial");
Leer(fact);resp=1si(fact=0);
escribir("fact=1");
sino
{
while(fact> o =1)resp=resp*factfact=fact - 1;
}
escribir("la respuesta del factorial es="+resp)

terminar