Algoritmo detarea
	Definir x Como Entero
	Definir vector,nombre Como Caracter
	Dimension vector[5]
	para x = 1 Hasta 5 Con Paso 1 Hacer
		Escribir "Ingresa el nombre ",x
		leer vector(x)
	FinPara
	Escribir "Ingresa el nombre a buscar"
	leer nombre
	para x = 1 Hasta 5 Con Paso 1 Hacer
		si nombre == vector(x) Entonces
			Escribir "El nombre ",nombre," se encuentra en la posicion ",x
		FinSi
	FinPara
FinAlgoritmo