taboubi

program tabboubi ;
uses WinCrt ;
type
    tab = Array [1..15] of Integer ;
var
    t : tab;
    n : integer;

procedure saisi( var n  : integer);
    begin
        repeat
            write('N= ');
            readln(n);
        Until n in [3..15] ;
    end;

    Procedure remp(var t : tab ; n : integer);
        var
            a : integer;
        Begin

            for a:=1 to n do
                Begin
                    write('T[',a,'] : ');
                        readln(t[a]);
                end;


        end;
        procedure seq(t : tab ; n :integer);
            var
                x,a,b,s,nseq : integer;
            begin
                ClrScr;
                write('T: ');
                for a:=1 to n do
                    write(t[a]:5);
                writeln;
                nseq:=0;
                for a:=1 to n do
                    begin
                        s:=0;
                        b := a ;

                        repeat
                                s:=s+t[b];
                                b:=b+1
                        Until( s=0 )or (b>n);
                        if s=0 then
                            begin
                                nseq:=nseq+1;
                                for x :=a to b-1 do
                                    write(t[x]:5);
                                writeln;
                            end;

                    end;
                write('il y''a ',nseq,' seq nules ');
            end;
begin
    saisi(n);
    remp(t,n);
    seq(t,n);
end.