Возрастает или нет? pascal abcдано натуральное число n. необходимо определить, является ли последовательность его цифр при просмотре справа налево по возрастанию.формат входных данныхвводится целое число n (1≤n≤231−1).формат выходных данныхвыведите «yes», если условие выполняется, и «no» в противном случае.примерывходные данные выходные данные5321yes7820no
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.