Algoritmo detarea
	Definir a,b,c,total,moda,vector2 Como Entero
	Definir vector1,x Como Carácter
	Escribir "Ingresa el total de números"
	leer total
	Dimension vector1[total],vector2[total]
	para a = 0 Hasta total-1 Con Paso 1 Hacer
		vector1(a) = ""
		vector2(a) = 0
	FinPara
	para a = 0 Hasta total - 1 Con Paso 1 Hacer
		Escribir "Ingresa el número"
		leer n
		x = ConvertirATexto(n)
		vector1(a) = x
		c = 0
		para b = 0 Hasta total - 1 Con Paso 1 Hacer
			si x == vector1(b) Entonces
				c = c + 1
			FinSi
		FinPara
		vector2(a) = c
	FinPara
	moda = 0 
	para a = 0 Hasta total - 1 Con Paso 1 Hacer
		si vector2(a) > moda Entonces
			moda = a		
		FinSi	
	FinPara
	Escribir "La moda es: ",vector1(moda)	
FinAlgoritmo