По информатике! дана последовательность целых чисел, 0 - конец последовательности. определите, сколько раз в последовательности меняется знак.

Var n, i, n1: integer;
begin
     read(n);
     i := 0;
     n1 := 0;
     while n <> 0 do
     begin
          if n1 * n < 0 then
             i := i + 1;
          n1 := n;
          read(n);
     end;
     writeln(i);
end.