Algoritmo detarea
	Definir x,vector Como Entero
	Dimension vector[5]
	para x = 0 Hasta 4 Con Paso 1 Hacer
		Escribir "Ingresa un numero"
		leer vector(x)
	FinPara
	para x = 0 Hasta 4 Con Paso 1 Hacer
		si vector(x) > 0 Entonces
			Escribir vector(x)," es positivo"
		SiNo
			si vector(x) < 0 Entonces
				Escribir vector(x)," es negativo"
			SiNo
				Escribir vector(x)," es neutro"
			FinSi
		FinSi
	FinPara
FinAlgoritmo