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

var a,b,k:integer; begin write('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.