smax:=0;
for i:=1 to (n-1) do
if a[i]=a[i+1] then
s:=s+1
else begin
if s>smax then
smax:=s;
s:=1;
end;
writeln('максимальное количество одинаковых элементов.=',smax);