Algoritmo detarea
	Definir i,c,j,vector Como Entero
	Dimension vector[10]
	para i = 0 Hasta 9 Con Paso 1 Hacer
		Escribir "Ingresa un numero: "
		leer n
		c = 0
		para j = 0 Hasta i Con Paso 1 Hacer
			si n == vector[j] Entonces
				Escribir "El numero ya existe"
				c = 1
			FinSi
		FinPara
		si c == 0 Entonces
			vector[i] = n
		SiNo
			i = i - 1
		FinSi
	FinPara	
	para i = 0 Hasta 9 Con Paso 1 Hacer
		Escribir vector[i]
	FinPara
FinAlgoritmo