program sequence ;
uses wincrt;
 type
 tab=array [1..15] of integer ;
 var
 t:tab;
 n:byte;
 procedure saisir (var t:tab;var n:byte);
 begin
 	Repeat
 		writeln('donner la taille du tableau');
 		readln(n)
    until (n in [3..15]);
   end;
 Procedure remplir (t:tab;n:byte);
 var
 i:byte;
 begin
 	for i:=1 to n do
        writeln('t[',i,']=');
 	Readln(t[i]);
 end;
 function verif(t:tab;n:byte):boolean;
 var
 v:boolean;
 i,nb:integer;
 begin
 	nb:=0;
 	v:=false;
 	for i:=0 to n do
        if (t[i]+t[i+1]=0) then
            v:=true;
            nb:=nb+1;
 	verif:=v
 	end;
 Procedure afficher (t:tab;n:byte);
 var
 i,nb:integer;
 begin
 	for i:=1 to n do
        if verif(t,n) then
            WriteLn('le nombre de sequence nulle de ce tableau est ',nb, ' qui sont :');
 	writeln(t[i]+t[i+1]);
 	end;
begin
    saisir (t,n);
    remplir (t,n);
    afficher (t,n);
end.