Помогите пожалуйста, завтра экзамен!
  С клавиатуры вводятся вещественные числа. Признак конца ввода - 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.Тестовое решениеВводите числовую последовательность7121218340Последовательность неубывающая