Algoritmia - Calcular el factorial a m numeros

Proceso factorial

	m<-0;num<-0;fact<-0

	Escribir "Ingrese la cantidad de números a calcular el factorial";

	Leer m;

	Para i<-1 Hasta m Hacer

		Escribir "Ingrese el valor-",i;

		Leer num

		fact<-1

		  Para i<-1 Hasta num Hacer

			fact<-fact*i

			Escribir "El factorial de-",num,"-es-",fact;

		  FinPara

	FinPara

FinProceso

yo lo mejore así:

Proceso Factorial

	definir n, num, fact, cont como real;

	n<-0;

	num<-0;

	fact<-1;

		Escribir "Ingrese un numero real";

		Leer n;

		Escribir "Los numeros enteros antes del numero ingresado son: ";

		Para cont<-1 Hasta n Hacer

			Escribir cont;

			num<-cont;

			fact<-fact*num;

		FinPara

		Escribir "El factorial de: ",num,"!"," es: ",fact;

	FinProceso