Если нет ограничения на время, то в лоб прогнать все элементы и найти тот, у которого больше всех совпадений

Код
#include "iostream"

using namespace std;

int main () {
    int n,s=0,k=0;
    cin >> n;
    int *a=new int[n]; //объявили динамический массив
    
    for (int i=0;i<n;i++) cin >> a[i]; //ввод элементов

    for (int i=0;i<n;i++)  {
        for (int j=0;j<n;j++) if (a[i]==a[j]) k++;
        if (k>s) s=k;
    k=0;}

cout << s;

return 0;}


Под паскаль сами переделайте, давно с ним не сталкивался