var 
a:array [1..10000] of integer;
b:array [1..10000] of integer;
c:array [1..10000] of integer;
i,j,k,m,n,z,max:integer;
begin
k:=0;
m:=0;
writeln ('Введите число n');
readln (n);
writeln ('Заполните массив');
for i:=1 to n do begin
write ('a[',i,']='); readln (a[i]);
end;
j:=1;
z:=1;
for i:=1 to n-1 do begin 
if (a[i]=a[i+1]) then 
k:=k+1
else begin 
c[z]:=a[i];
b[j]:=k+1;
k:=0;
j:=j+1;
z:=z+1;
m:=m+1;
end;
b[j]:=k+1;
c[z]:=a[i];
end;
max:=b[1];
z:=1;
for j:=2 to m+1 do 
if (b[j]>max) then begin
max:=b[j];
z:=j;
end;
writeln ('Самая длинная цепочка из ',c[z]);
writeln ('Встречается ',max,' раз');
end.