Определите, содержит ли последовательность хотя бы одну пару равных соседних элементов

var
  a,i,apred,z:integer;
  apar,avozr:boolean;
begin
  writeln('ВВедите последовательность 0-окончание ввода:');
  i:=0;apar:=false;avozr:=true;z:=0;
  repeat
    inc(i);
    write(i,' элемент =');
    readln(a);
    if i>1 then begin
      if apred=a then apar:=true;
      if a <>0 then begin
        if apred/abs(apred)<>a/abs(a) then inc(z);
        if apred>=a then avozr:=false;
      end;
    end;
    apred:=a;
  until a=0;
  if i=1 then writeln('В последовательности один нулевой элемент') else begin
    if apar then writeln('Пара одинаковых соседей есть') else writeln('Пары одинаковых соседей нет');
    if z>0 then writeln(z,' Раз сменился знак') else writeln('Знак не менялся');
    if avozr then writeln('Последовательность возрастающая') else writeln('Последовательность не возрастающая');
  end;
end.