Var
    i, n, prev_n: integer;

begin
    i := 0;
    writeln(Введите последовательность чисел,оканчивающихся 0);
    
    repeat
        readln(n);
        if prev_n * n lt; 0 then
            i := i + 1;
        prev_n := n;
    until n = 0;
    
    writeln(i);
end.