Program m;
 Var old, new: real;
 k,n,i: integer;
 Begin
 repeat
 write(vvod posl n= );
 readln(n)
 until ngt;0;
 Write(vvod x= );
 Readln(old);
 k:=0;
 for i:=2 to n do
 begin
 Write(vvod x= );
 Readln(new);
 If new*oldlt;0 then k:=k+1;
 Old:=new;
 end;
 If kgt;0 then
 Writeln(posledovatelnost menyaet znak , k, raz)
 Else Writeln(posledovatelnost ne menyaet znak);
 End.