Дано 3-х значное число. определить образуют ли цифры последовательность.

Var
  n, m, d: integer;

begin
  Write('Введите трехзначное число: ');
  Readln(n);
  if (n < 100) or (n > 999) then
    Writeln('У Вас странное представление о трехзначных числах!')
  else begin
    d := n div 100; {старшая}
    n := n mod 100;
    m := n div 10; {средняя}
    n := n mod 10; {младшая}
    if (m > d) and (n > m) then
      Writeln('Цифры следуют в возрастающей последовательности')
    else if (m < d) and (n < m) then
      Writeln('Цифры следуют в убывающей последовательности')
    else Writeln('Цифры не образуют монотонную последовательность')
  end
end.

Тестовое решение:

Введите трехзначное число: 159
Цифры следуют в возрастающей последовательности