Ниже приведен пример программы на языке Паскаль для проверки упорядоченности цифр числа:

program CheckDigitOrder;
var
num, prevDigit, currentDigit: Integer;
ordered: Boolean;
begin
// Вводим натуральное число
write('Введите натуральное число: ');
readln(num);
// Инициализируем флаг упорядоченности
ordered := True;
// Получаем последнюю цифру числа
prevDigit := num mod 10;
num := num div 10;
// Перебираем оставшиеся цифры числа
while num > 0 do
begin
currentDigit := num mod 10;
// Проверяем упорядоченность цифр
if currentDigit > prevDigit then
begin
ordered := False;
break;
end;
prevDigit := currentDigit;
num := num div 10;
end;
// Выводим результат
if ordered then
writeln('Последовательность цифр упорядочена')
else
writeln('Последовательность цифр не упорядочена');
end.

Эта программа проверяет упорядоченность цифр числа, просматривая их слева направо. Если последовательность упорядочена, программа выводит сообщение "Последовательность цифр упорядочена", в противном случае выводится сообщение "Последовательность цифр не упорядочена".