Определить, сколько шариков будет уничтожено (непрерывная цепочка из трех и более шариков одного цвета)

const
  maxn = 1001;
 
type
  myarr = array [1..maxn] of byte;
 
var
  ball: myarr;
  n, i, k, sum: integer;
 
function kolvo(i: integer): integer;
var
  j: integer;
begin
  j := i + 1;
  while (j <= n) and (ball[i] = ball[j]) do begin
    j := j + 1;
    {writeln(ball[i], ' ', ball[j], ' - balls ', j, ' - j (kolvo)');}
  end;
  kolvo := j - i;
end;
 
procedure delete(i, kolvo: integer);
var
  j: integer;
begin
  for j := i to (n - kolvo) do begin
    ball[j] := ball[j + kolvo];
    {writeln(j, ' - j (1 delete)');}
  end;
  for j := (n - kolvo + 1) to n do begin
    ball[j] := 10;
    {writeln(j, ' - j (2 delete)');}
  end;
  {for j := 1 to n do
    write(ball[j], ' ');
  writeln;}
end;
 
begin
  for i := 1 to maxn do
    ball[i] := 10;
  read(n);
  for i := 1 to n do
    read(ball[i]);
  i := 1;
  while (i <= (n - 3)) do begin
    if (ball[i] <> 10) and (ball[i] = ball[i + 1]) and (ball[i + 1] = ball[i + 2]) then begin
      k := kolvo(i);
      //writeln(k, ' - kolvo');
      sum := sum + k;
      delete(i, k);
      i := 1;
      //writeln(i, ' - i ', sum, ' - sum');
    end else
      if (ball[i] <> 10) then begin
        i := i + 1;
        //writeln(i, ' - i');
      end
      else
        i := n - 2;
  end;
  writeln(sum);
end.