program plusminus;
var
   num, sum, ex, switches: integer;
begin
     sum := 0;
     switches := 0;
     while num <> 999 do
           begin
                sum := sum + num;
                readln (num);
                if (ex * num < 0) and (num <> 999) then switches := switches +1;
                ex := num;
           end;
     writeln ('total sum is: ', sum);
     writeln ('number of switches is: ', switches);
     readln;
end.