Изменить программу для выявления знакочередующейся последовательности - PascalABC.NET - Ответ 13709259

var
  x, i, y, m: integer;
  n, z: boolean;
 
begin
  i := 0;
  y := 0;
  x := 1;
  write('Введите не менее двух целых ненулевых чисел, over = 0: ');
  while (x <> 0) or (i <= 2) do 
  begin
    read(x);
    if (x * y >= 0) then z := True;
    if (x = y) then n := True;
    if (x > y) and (x <> 0) then
    begin
      m := m + 1;
      y := x;
    end;
    if (x <> 0) or (i <= 2) then i := i + 1;
  end;
  if (m = i) then writeln('(1)Последовательность чисел возрастающая') else writeln('(1)Последовательность чисел не возрастающая');
  if (n = True) then writeln('(2)В последовательности есть как минимум одна пара соседних чисел') else writeln('(2)В последовательности нет пары соседних чисел');
  if (z = True) then writeln('(3)Последовательность знакочередующаяся') else writeln('(3)Последовательность не знакочередующаяся');
end.