Question

Дано двузначное число. Верно ли, что цифры числа не убывают слева направо?

Answer 1

var n:integer;
begin
write('n = ');
readln(n);
if n div 10 <= n mod 10
 then writeln('цифры числа не убывают слева направо')
 else writeln('цифры числа убывают слева направо');
end.

Пример:
n = 59
цифры числа не убывают слева направо