Proceso sin_titulo
	Escribir "ingrese numero"
	Leer a
	factorial<-1
	x<-1
	Mientras x<=a Hacer
		factorial<-factorial*x
		x<-x+1
	FinMientras
	Escribir "el factoriales: ", factorial
FinProceso