Algoritmo detarea
	Definir a,b,c,n,x,vector Como Entero
	Escribir "Ingresa el tamaño del Vector"
	leer n
	Dimension vector[n]
	para a = 1 Hasta n Con Paso 1 Hacer
		c = 0
		x = azar(n*2) + 1
		para b = 1 Hasta n Con Paso 1 Hacer
			si x == vector(b) Entonces
				c = 1
			FinSi
		FinPara
		si c ==1 Entonces
			a = a - 1
		SiNo
			vector(a) = x
		FinSi
	FinPara
	para a = 1 Hasta n Con Paso 1 Hacer
		Escribir vector(a)
	FinPara
FinAlgoritmo