ESEQ PASCAL

var a,f:array[0..100002] of int64;
    n,i,x,j:longint;
    d:int64;

procedure nhap;
begin
   read(n);
   for i:=1 to n do read(a[i]);
end;

procedure xuli;
begin
    f[0]:=0;
    for i:=1 to n do
        f[i]:=f[i-1]+a[i];
    d:=0;
    for j:=2 to n do
        for i:=1 to j-1 do
            if f[i]=f[n]-f[j-1] then
                inc(d);
    writeln(d);
end;

begin
    assign(input,'eseq.inp');reset(input);
    assign(output,'eseq.out');rewrite(output);
    nhap;
    xuli;
    close(input);close(output);
end.