---

program CompareFourNumbers;
uses crt;
var
  a, b, c, d: integer;
begin
  clrscr;
  writeln('Введите 4 числа:');
  readln(a, b, c, d);

  if (a <= b) and (b <= c) and (c <= d) then
    writeln('Числа даны по возрастанию')
  else if (a >= b) and (b >= c) and (c >= d) then
    writeln('Числа даны по убыванию')
  else
    writeln('Числа даны вразнобой');

  readln;
end.