Нужно вывести все последовательности x1, x2, xn, состоящие из натуральных чисел, где каждое xi удовлетворяет условию

Название: Генерация последовательностей в языке программирования Паскаль.
Пояснение: Для генерации всех последовательностей x1, x2, ..., xn, состоящих из натуральных чисел, где каждое xi удовлетворяет условию 1 ≤ xi ≤ k, в языке программирования Паскаль можно использовать рекурсию с обратным ходом. Мы начинаем с x1 и увеличиваем его значение на 1 до k. Затем рекурсивно вызываем функцию для генерации последовательности из оставшихся элементов x2, ..., xn. При каждом вызове функции мы проверяем, что текущее значение xi удовлетворяет условию. Если мы дошли до последнего элемента xn, то выводим полученную последовательность.
Демонстрация: Пусть k = 3 и n = 4. Мы должны сгенерировать все последовательности из 4 чисел, где каждое число лежит в интервале от 1 до 3. Решение:

pascal

program GenerateSequences;



const

  k = 3; // максимальное значение xi

  n = 4; // количество элементов в последовательности



var

  sequence: array[1..n] of Integer;



procedure Generate(index: Integer);

var

  i: Integer;

begin

  if index > n then

  begin

    // Выводим последовательность

    for i := 1 to n do

      Write(sequence[i], " ");

    WriteLn;

  end

  else

  begin

    // Генерируем значения xi

    for i := 1 to k do

    begin

      sequence[index] := i;

      Generate(index + 1); // Рекурсивный вызов для оставшихся элементов

    end;

  end;

end;



begin

  Generate(1);

end.

Совет: При решении данной задачи важно понять, что мы можем использовать рекурсию для генерации всех возможных комбинаций чисел. Отслеживайте номер элемента, который вы генерируете, и используйте цикл для перебора всех возможных значений для этого элемента. Также обратите внимание на базовый случай, когда мы достигаем последнего элемента и должны вывести полученную последовательность.
Задание: Напишите программу на языке программирования Паскаль, которая будет генерировать все последовательности из 3 чисел, где каждое число лежит в интервале от 1 до 2. Выведите все сгенерированные последовательности.