program Array14;
var
j,i:integer; // счетчик в цикле
N:integer;
kol,kol0:integer;
Otvet:integer;
a: array [1..100] of integer;
begin
// ввод размера массива
 writeln('Введите N (N<10)'); readln(N);
 for i:=1 to N do
 begin
 write('a[',i,']=');
 readln(A[i]); // ручной ввод значений массива
 end;
 // вывод результата
writeln('Результат');
kol0:=0;
Otvet:=a[1];
 for i:=1 to N-1 do
 begin
 kol:=0;
 for j:=i+1 to N do  if a[j]=a[i] then inc(kol);
if kol>kol0 then begin Otvet:=a[i]; kol0:=kol; end;
if kol=kol0 then begin Otvet:=a[i];end;
 end;
 inc(kol0);
 Writeln('Ответ число : ',Otvet,' встречается ',kol0,' раз');
end.