Шарики

[makskovalko]

Здравствуйте! Помогите, пожалуйста, решить задачу.

[BDA]

Это успех У Вас получилось выложить картинку.

var
  n, i, count, l, r: integer;
  a: array [1 .. 1000] of byte;

begin
  read(n);
  for i := 1 to n do
    read(a[i]);
  count := 1;
  for i := 2 to n do
    if a[i - 1] = a[i] then
    begin
      inc(count);
      if count >= 3 then
        break
    end
    else
      count := 1;
  if count >= 3 then
  begin
    count := 0;
    l := i;
    r := i;
    repeat
      while (l > 0) and (a[l] = a[i]) do
        dec(l);
      inc(l);
      while (r <= n) and (a[r] = a[i]) do
        inc(r);
      dec(r);
      i := r + 1;
      if r - l + 1 >= count + 3 then
        count := r - l + 1
      else
        break;
      dec(l);
      inc(r);
    until (l < 1) or (r > n);
    writeln(count);
  end
  else
    writeln(0);
end.