Дано 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 Цифры следуют в возрастающей последовательности