关于上次石子游戏题目100分解法（pascal)

var
        a,b:array[1..100000]of longint;
        s,i,j,n,ans:longint;
begin
        assign(input,'stone.in');reset(input);
        assign(output,'stone.out');rewrite(output);
        readln(n);
        for i:=1 to n do
        begin
                readln(a[i]);
                if a[i]=0 then inc(s);
        end;
        ans:=1;
        b[ans]:=1;
        for i:=2 to n do
        begin
                if (i mod 2=1)and(a[i]<>a[i-1]) then
                begin
                        inc(ans);
                        b[ans]:=i;
                end
                else if (i mod 2=0)and(a[i]<>a[i-1]) then
                begin
                        if a[i]=0 then s:=s+(i-b[ans])
                        else s:=s-(i-b[ans]);
                        if ans>1 then dec(ans);
                end;
        end;
        writeln(s);
        close(input);
        close(output);
end.