Дано натуральное чсло 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.