{ Найти наибольшее кол-во одинаковых элементов. }

uses crt;
var a,b : array [1..10] of longint;
    k,i,j,min,max,n,m,s : longint;
 begin
  clrscr;
     write('кол-во элм. табл. n=');
	 readln(n);
   for i:=1 to n do
    begin
      write('a[',i,']=');
	  readln(a[i]);
    end;
   for i:=1 to n-1 do
    begin
      min:=a[i];k:=i;
     for j:=i+1 to n do
       if a[j]max then max:=b[i];
   write('наибольшее кол-во
   одинаковых элм.: ',max);
  readln;
 end.