Задача по информатике помогите ркшить? ВОТ задача Дано целое число n, -2147483648

Question

Дано целое число n, -2147483648

Дано целое число n, (-2147483648

Дано целое число n, n от -2147483648 до 2147483647. Определить, упорядочены ли по возрастанию цифры в записи этого числа. Например, в числе 13789 цифры упорядочены по возрастанию, а в числе 34609 – нет. Решение с меньшим объемом занимаемой памяти будет оцениваться выше.

Василий Брюхачев · Accepted Answer

var 
 n: longint; 
 b: boolean; 
begin 
 write('n? '); 
 readln(n); 
 n := abs(n); 
 b := true; 
 while (n > 9) and b do begin 
 if (n mod 10) < (n div 10 mod 10) then b := false; 
 n := n div 10; 
 end; 
 write(b); 
end.