Помогите пожалуйста, завтра экзамен!  С клавиатуры вводятся вещественные числа. Признак конца ввода - 0. Определить, является ли вводимая последовательность упорядоченной по невозрастанию или по неубыванию (PascalABC).

var   a, c: boolean;   b, b1: integer; begin   readln(b);   readln(b1);   if (b > b1) then     a := true   else     if (b1 > b) then       a := false;   while (true) do   begin     readln(b1);     if (0 in [b, b1]) then       break;     if a then     begin       if (b < b1) then         c := true;     end     else       if (b > b1) then         c := true;     b := b1;   end;   if c then     writeln('Случайная')   else     if (a) then       writeln('Невозрастающая')     else       writeln('Неубывающая'); end. Само собой, должно быть минимум 2 числа в последовательности:)

var   x, x1: integer;   BreakLoop, NonDescending: Boolean; begin   writeln('Вводите числовую последовательность');   read(x);   read(x1);   NonDescending := (x1 >= x);   repeat     read(x);     if x <> 0 then       if NonDescending then BreakLoop := (x < x1)       else BreakLoop := (x > x1);     x1 := x   until BreakLoop or (x = 0);   if BreakLoop then writeln(#13#10, 'Последовательность неупорядочена')   else   if NonDescending then writeln(#13#10, 'Последовательность неубывающая')   else writeln(#13#10, 'Последовательность невозрастающая') end. Тестовое решение Вводите числовую последовательность 7 12 12 18 34 0 Последовательность неубывающая