Algoritmo detarea
	Definir a,x,vector Como Entero
	Dimension vector[50]
	a = 1
	para x = 1 Hasta 100 Con Paso 1 Hacer
		si x mod 2 == 0 Entonces
			vector(a) = x
			a = a + 1
		FinSi
	FinPara
	para x = 1 Hasta 50 Con Paso 1 Hacer
		Escribir "Vector en la posición ",x," = ",vector(x)
	FinPara	
FinAlgoritmo