Program m;

  Var old, new: real;

  k: integer;

  Begin

  Write(vvod x);

  Readln(old);

  Write(vvod x);

  Readln(new);

  X:=0;

  Repeat

  If new*oldlt;0 then k:=k+1;

  Old:=new;

  Write(vvod x);

  Readln(new)

  Until new=0;

  If kgt;0 then

  Writeln(posledovatelnost menyaet znak, k, raz)

  Else Writeln(posledovatelnost ne menyaet znak);

  End.