Algoritmo detarea
	Definir x,n,c,vector Como Entero
	Dimension vector[80]
	para x = 1 Hasta 80 Con Paso 1 Hacer
		vector(x) = x
	FinPara
	Escribir "Ingresa un numero"
	leer n
	c = 0
	para x = 1 Hasta 80 Con Paso 1 Hacer
		si n == vector(x) Entonces
			Escribir "El numero se encuentra en la posicion ",x 
			c = 1
		FinSi
	FinPara
	si c == 0 Entonces
		Escribir "El numero no se encuentra en el vector"
	FinSi
FinAlgoritmo