Algoritmo de factorial

Inicio

var: fact,resp;

principal

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