Дано натуральное чсло N.Составте программу, которая определяет, ...

Ira

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.