Дано натуральное число. Установить, является ли последовательность его цифр при просмторе их справа налево упорядоченной по возрастанию. С помощью repeat.

program zz1;

var i, k, n, p:integer; / / задаем переменные целого типа

begin

read (n); / / вводим заданное натуральное число

k:=n mod 10; / / получаем последнюю цифру

n:=n div 10; / / выбрасываем ее из числа

repeat / / организуем цикл

i:=n mod 10; / / получаем следующую цифру

n:=n div 10; / / выбрасываем ее из числа

if k < i then p:=1; / / проверяем, если нет возрастания, то запоминаем

k:=i;

until n0;

if p = 0 then

write (' возрастание ')

else write (' не возрастание '); / / выводим ответ

end.