Код
#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;}
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;}
Под паскаль сами переделайте, давно с ним не сталкивался