var
a, b, s: Integer;
begin
Writeln('vvedite chisla');
a := 0;
s := 0;
read(b);
while b <> 0 do
begin
if a * b < 0 then
inc(s);
a := b;
read(b);
end;
writeln(s);
Readln;
end.
dmFyCiAgYSwgYiwgczogSW50ZWdlcjsKYmVnaW4KICBXcml0ZWxuKCd2dmVkaXRlIGNoaXNsYScpOwogIGEgOj0gMDsKICBzIDo9IDA7CiAgcmVhZChiKTsKICB3aGlsZSBiIDw+IDAgZG8KICBiZWdpbgogICAgaWYgYSAqIGIgPCAwIHRoZW4KICAgICAgaW5jKHMpOwogICBhIDo9IGI7CiAgIHJlYWQoYik7CiAgZW5kOwogIHdyaXRlbG4ocyk7CiAgUmVhZGxuOwplbmQu