Lưu ý: Các code mẫu dưới đây chỉ mang tính tham khảo và có thể không AC được bài tập này

Code mẫu của ladpro98

program twosum;
uses    math;
const   fi='';
        maxn=5005;
var     a:array[1..maxn] of longint;
        n,i,l,r,sl,sr,res:longint;
        inp:text;

begin
        assign(inp,fi);reset(inp);
        readln(inp,n);
        for i:=1 to n do readln(inp,a[i]);
        for i:=1 to n do
        begin
                sl:=0;sr:=0;
                r:=i+1;
                for l:=i downto 1 do
                begin
                        inc(sl,a[l]);
                        while (r<=n) and ((sr<sl) or (a[r]=0)) do
                        begin
                                inc(sr,a[r]);
                                inc(r);
                        end;
                        if sl=sr then res:=max(res,r-l);
                end;
        end;
        write(res);
end.