Возрастает или нет? PASCAL ABCДано натуральное число n. Необходимо определить, является ли последовательность его цифр при просмотре справа налево упорядоченной по возрастанию.Формат входных данныхВводится целое число n (1≤n≤231−1).Формат выходных данныхВыведите «YES», если условие задачи выполняется, и «NO» в противном случае.Примерывходные данные выходные данные5321----------------------------YES7820----------------------------NO
Var x, k, a,s, b:Integer ;
Begin
Write ('x=') ;read(x) ;
B:=-1;k:=0;s:=0;
While x>0 do begin
A:=x mod 10;
If a>b then k:=k+1;
S:=s+1;
X:=x div 10;b:=a;
End;
If k=s then writeln('YES') Else writeln('NO') ;
End.