Algoritmo detarea
	Definir n,x,vector Como Entero
	Escribir "Ingresa el tamaño del vector"
	leer n
	Dimension vector[n]
	para x = 1 Hasta n Con Paso 1 Hacer
		si x mod 2 == 0 Entonces
			vector(x) = 0
		SiNo
			vector(x) = 1
		FinSi
	FinPara
	para x = 1 Hasta n Con Paso 1 Hacer
		Escribir "Posicion del vector ",x," = ",vector(x)
	FinPara
FinAlgoritmo