program zenklo_kaita;
  { 85 u‘davinys }
  var keicia,            { kiek kart— sekoje kei‡iamas ‘enklas }
      a1, a2 : integer;  { du gretimi sekos nariai }
begin
  writeln ('­veskite sveik—j— nenulini— skai‡i— sek…, ');
  writeln ('besibaigian‡i… 0 : ');
  keicia := 0;
  read (a2);
  while a2 <> 0 do   { kol neperskaityta visa seka }
    begin
      a1 := a2;
      read (a2);
      if (a1 < 0) and (a2 > 0) or (a1 > 0) and (a2 < 0)
        then keicia := keicia + 1;
   end;
  writeln (keicia)
end.
