Создание программы на Паскале, которая использует динамические массивы для ввода натуральных чисел и их сортировки, включает несколько шагов. Давайте подробно рассмотрим, как это сделать.

В Паскале динамические массивы позволяют изменять размер массива во время выполнения программы. Мы начнем с объявления динамического массива и переменной для хранения количества введенных чисел.

Мы будем использовать цикл для ввода чисел. Вводить числа будем до тех пор, пока пользователь не введет 0.

После того, как все числа будут введены, нам нужно отсортировать массив. Мы можем использовать простой алгоритм сортировки, например, сортировку пузырьком.

Наконец, мы выведем отсортированные числа на экран.

program SortNumbers;
var
  numbers: array of Integer; // Динамический массив
  input: Integer; // Вводимое число
  count, i, j, temp: Integer; // Счетчики и временная переменная
begin
  count := 0; // Инициализация счетчика
  
  // Ввод чисел
  repeat
    Write('Введите натуральное число (0 для завершения): ');
    ReadLn(input);
    
    if input <> 0 then
    begin
      SetLength(numbers, count + 1); // Увеличиваем размер массива
      numbers[count] := input; // Добавляем число в массив
      count := count + 1; // Увеличиваем счетчик
    end;
  until input = 0;

  // Сортировка массива (сортировка пузырьком)
  for i := 0 to count - 1 do
  begin
    for j := 0 to count - 2 do
    begin
      if numbers[j] > numbers[j + 1] then
      begin
        // Меняем местами
        temp := numbers[j];
        numbers[j] := numbers[j + 1];
        numbers[j + 1] := temp;
      end;
    end;
  end;

  // Вывод отсортированных чисел
  WriteLn('Отсортированные числа:');
  for i := 0 to count - 1 do
  begin
    WriteLn(numbers[i]);
  end;
end.

• Объявление переменных: Мы объявляем динамический массив numbers для хранения введенных чисел и переменные для ввода и счетчиков.
• Ввод чисел: Используем цикл repeat-until для ввода чисел. Если введено число 0, цикл завершается.
• Увеличение размера массива: При каждом вводе нового числа мы увеличиваем размер массива с помощью SetLength.
• Сортировка: Используем два вложенных цикла для реализации сортировки пузырьком.
• Вывод: После сортировки выводим все числа на экран.

Теперь вы можете запустить эту программу и протестировать ее, вводя различные натуральные числа. Удачи!