Вводится последовательность ненулевых чисел,
0 — конец последовательности. Определить, сколько раз последова-
тельность поменяет знак.

var a,b,k:integer;beginwrite('a=');readln(a);k:=0;while a<>0 do begin b:=a; write('a=');readln(a); if a*b<0 then k:=k+1; end;writeln('k=',k);end.