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

Program Boolean21;

Var
  A: Integer;

Begin
  ReadLn(A);
  WriteLn((((A Div 100) Mod 10) < ((A Div 10) Mod 10)) Or
    ((((A Div 10) Mod 10)) < (A Mod 10)));
  ReadLn;

end.