выяснить, является ли последовательность цифр натурального числа при просмотре их справа налево возрастающей последовательностью

[Al'f!ra]

например для числа 76431 ответ положительный, для 6331 отрицательный

[VIK_aka_TOR]

самая перва идея это использовать mod и div

var 
n, x : integer;
flag: boolean;
begin
  readln(n);
  flag := true;
  while n >= 10 do
    begin
      x:= n mod 10;      
      n := n div 10;
      if x >= ( n mod  10) then
        begin
        flag := false;
        writeln('не возрастает');
        break;
        end;
    end;
  if flag then
  writeln('возрастает');
end.

как то так...

[Hacker19_90]

Вторая идея это записать в строку

flag := true;
Readln (Str_Num);
for i := length(Str_num) downto 2 do
begin
    if ord(Str_Num[i]) >= ord(Str_Num[i-1]) then
    begin
        flag := false;
        break;
    end;
end;
Writeln (flag);