Помогите, пожалуйста! Программирование в КуМире
ввести целое число и определить верно ли что все его цифры расположены в порядке возрастания

Спасибо, Вам еще раз)

Пожалуйста.

алг Числонач  цел n, n1, k, f  вывод "Введите целое число", нс  ввод n  n1:= div(n,10)  k:= mod(n,10)  f:= 1  нц пока n1<>0    если mod(n1,10) > k то       f:= 0    все    k:= mod(n1,10)    n1:= div(n1,10)  кц  если f=1 то    вывод "Да."   иначе    вывод "Нет."кон