Проверить истинность высказывания: «Цифры данного числа образуют возрастающую или убывающую последовательность» — Pascal(Паскаль)

Program Boolean22;

Var
  a, b, c, N: Integer;

Begin
  ReadLn(N);
  a := N Div 100;
  b := N Div 10 - a * 10;
  c := N - b * 10 - a * 100;
  WriteLn(((a < b) And (b < c)) Or ((a > b) And (b > c)))

end.