{* Задача102 *}

REM basic

' Составьте программу, определяющую чаще всего встречающийся элемент данного массива B(N).


INPUT "vvedite n"; n
Dim a(n)
For i = 1 To n
    INPUT a(i)
Next
For i = 1 To n
    b = 0
    For j = 1 To n
        b = b - (a(i) = a(j))
    Next
    If b > max Then max = b: c = a(i)
Next
PRINT c
End