Дано натуральное число. Установить, является ли последовательность его цифр при просмотре...

Question

Дано натуральное число. Установить, является ли последовательность его цифр при просмотре их справа налево упорядоченной по возрастанию. Например, для числа 5321 ответ положительный, для чисел 7820 и 9663 - отрицательный.

Answer 1

Var A : Integer;
Flag : Boolean;
Begin
  Readln(A);
  Flag:=True;
  While A>9 do
  Begin
    If (A mod 10)>=(A div 10 mod 10) then Flag:=False;
    A:=A div 10;
  end;
  Case Flag of
    True  : Writeln('Ответ положительный.');
    False : Writeln('Ответ отрицательный.');
  end;
end.