fgf

programa
{
	funcao inicio()
	{
		inteiro vetor1[5], vetor2[5], vetor3[5], s, n, chave, maior, num_elementos_s_rep=0, j=1, i
		leia(n)
		para(i=1; i<n; i++){
			leia(vetor1[i])
		}

		para(i=1; i<n; i++){
			vetor2[i] = 0
		}

		para(i=1; i<n; i++){
			para(j=1; j<n; j++){
				se (vetor1[i] == vetor1[j]){
					vetor2[i] = vetor2[i] + 1
				}
			}
		}
		maior = 0
		para(i=1; i<n; i++){
			se(vetor2[i] > maior){
				maior = vetor2[i]
				//escreva("o Maior ", maior, "\n")
			}
		}
		para(i = 1; i <n; i++){
			num_elementos_s_rep = n - vetor2[i]
		}
		maior = 0
		para(i=1; i<n; i++){
			para(j=1; j<num_elementos_s_rep; j++){
				se (vetor1[i] == vetor1[j]){
					vetor3[i] = vetor3[i] + 1
				}
			}
		}

		para(i=1; i<n; i++){
			se(vetor3[i] > maior){
				maior = vetor3[i]
				//escreva("o Maior ", maior, "\n")
			}
		}

		chave = 0
		escreva("\n \n Maior numero de rep: ", maior)
		para(i=1; i<num_elementos_s_rep; i++){
			se(vetor3[i] == maior){
				chave = i
				escreva(chave)
			}
			//escreva("\n \n", vetor3[i], "\n")
		}
	}
}