Конечно, вот пример программы на Pascal, которая проверяет, расставлены ли числа в порядке возрастания:

program CheckAscendingOrder;
var
numbers: array[1..5] of Integer;
i: Integer;
ascending: Boolean;
begin
ascending := True;
// Ввод чисел
writeln('Введите пять чисел:');
for i := 1 to 5 do
begin
readln(numbers[i]);
end;
// Проверка на возрастание
for i := 1 to 4 do
begin
if numbers[i] > numbers[i+1] then
begin
ascending := False;
break;
end;
end;
// Вывод результата
if ascending then
writeln('Числа расставлены в порядке возрастания')
else
writeln('Числа не расставлены в порядке возрастания');
end.

Эта программа сначала запрашивает у пользователя ввод пяти чисел, затем проверяет их на то, что они расставлены в порядке возрастания. Результат проверки выводится на экран. Надеюсь, это поможет! Если у вас есть какие-либо другие вопросы или запросы, пожалуйста, не стесняйтесь спрашивать.