Algoritmo detarea
	Definir i,x,vector1,vector2 Como Entero
	Definir factorial Como Real
	Dimension vector1[6], vector2[6]
	para i = 0 Hasta 5 Con Paso 1 Hacer
		Escribir "Ingresa un numero"
		leer vector1[i]
	FinPara
	para i = 0 Hasta 5 Con Paso 1 Hacer
		si vector1[i] < 0 Entonces
			Escribir "El numero ",vector1[i]," no se puede calcular"
		SiNo
			x = 1
			factorial = 1
			Mientras x <= vector1[i] Hacer
				factorial = factorial * x
				x = x + 1
			FinMientras
			vector2[i] = factorial
		FinSi		
	FinPara
	para i = 0 Hasta 5 Con Paso 1 Hacer
		Escribir "vector 1: ",vector1[i]," = "," vector 2: ",vector2[i]
	FinPara
FinAlgoritmo