Программа

Program Pilshikov_5_45 (input,output);
{ Дана непустая последовательность
  ненулевых целых, за которой следует
  ноль. Определить сколько раз в ней
  меняется знак. }
Var SignX,SignXPred:(minus,plus);
    X,QuantityChangeSign:integer;
BEGIN
  QuantityChangeSign:=0;
  Writeln;
  Write('Введите число ');
  Readln(X);
  if X<>0
    then Begin
           if X>0 then SignXPred:=plus
                  else SignXPred:=minus;
           Write('Введите число ');
           Readln(X);
           while X<>0 do
             begin
               if X>0 then SignX:=plus
                      else SignX:=minus;
               if SignXPred<>SignX
                 then QuantityChangeSign:=QuantityChangeSign+1;
               SignXPred:=SignX;
               Write('Введите число ');
               Readln(X)
             end
         End;
  Writeln('Количество изменений знака ',QuantityChangeSign)
END.