Дано натуральное чсло N.Составте программу, которая определяет, является ли  последовательность цифр этого числа ( при просмотре их справа налево) упорядоченной по возрастанию.

var   x, n:integer; begin   write('n = ');   readln(n);   x := n mod 10;   n := n div 10;   while n > 0 do   begin     if n mod 10 < x then     begin       writeln('Последовательность неупорядочена по возрастанию');       readln;       Exit;     end;     x := n mod 10;     n := n div 10;   end;   writeln('Последовательность упорядочена по возрастанию');   readln; end.