uses crt; var n,d,j,m,vt,i:longint; a:array[1..1000000]of longint; begin clrscr; write('n=');readln(n); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); d:=0; for j:=1 to i do if a[i]=a[j] then inc(d); if d>m then begin m:=d; vt:=i; end; end; writeln(a[vt],' ',m); readln end.
