var
  a: array[1..30] of integer;
  i, k, ki, kmax, kimax: integer;

begin
  for i := 1 to 30 do begin a[i] := random(10);write(a[i], ' '); end;
  writeln();
  kmax := 0;
  kimax := 0;
  for i := 1 to 29 do 
  begin
    if a[i] = a[i + 1] then     
      k := k + 1 
    else k := 1;              
    if k > kmax then kmax := k;
  end;
  writeln(kimax, ':= ', kmax);
end.