Moda

A ver... hay les va el algoritmo pa sacar la moda d los valores

/* Programa Que Datos 5 Numeros Diferentes

/* Identificara Cual Numero La Moda

*/

var

n1, n2, n3, n4 ,n5: numerico

inicio

cls();

leer (n1)

leer (n2)

leer (n3)

leer (n4)

leer (n5)

si (n1==n2 or n1==n3 or n1==n4 or n1==n5)

{

imprimir ("\nLa Moda Es ",n1)

sino

si (n2==n1 or n2==n3 or n2==n4 or n2==n5)

{

imprimir ("\nLa Moda Es ", n2)

sino

si (n3==n1 or n3==n2 or n3==n4 or n3==n5)

{

imprimir ("\nLa Moda Es ", n3)

sino

si (n4==n1 or n4==n2 or n4==n3 or n4==n5)

{

imprimir ("\nLa Moda Es ",n4)

sino

si (n5==n1 or n5==n2 or n5==n3 or n5==n4)

{

imprimir ("\nLa Moda Es ",n5)

sino

}

}

}

}

}

fin

Ese no lo supe hacer... me lo pasaron jejeje

Agradecer no cuesta nada