Дана последовательность натуральных чисел 1, 2, 3, ..., N (1 ≤ N ≤ 1000). Необходимо сначала расположить в обратном порядке часть этой последовательности от элемента с номером A до элемента с номером B, а затем от C до D (A < B; C < D; 1 ≤ A, B, C, D ≤ N).
Входные данные
Вводятся натуральные числа числа N, A, B, C, D.
Выходные данные
Требуется вывести полученную последовательность.
Примеры
входные данные
9 2 5 6 9
выходные данные
1 5 4 3 2 9 8 7 6
входные данные
9 3 6 5 8
выходные данные
1 2 6 5 8 7 3 4 9 Сделать на PascalABC
Дана последовательность натуральных чисел 1, 2, 3, ..., N (1 ≤ N ≤ 1000). Необходимо сначала расположить в обратном порядке часть этой последовательности от элемента с номером A до элемента с номером B, а затем от C до D (A < B; C < D; 1 ≤ A, B, C, D ≤ N).
Входные данные
Вводятся натуральные числа числа N, A, B, C, D.
Выходные данные
Требуется вывести полученную последовательность.
Примеры
входные данные
9 2 5 6 9
выходные данные
1 5 4 3 2 9 8 7 6
входные данные
9 3 6 5 8
выходные данные
1 2 6 5 8 7 3 4 9 Сделать на PascalABC
Входные данные
Вводятся натуральные числа числа N, A, B, C, D.
Выходные данные
Требуется вывести полученную последовательность.
Примеры
входные данные
9 2 5 6 9
выходные данные
1 5 4 3 2 9 8 7 6
входные данные
9 3 6 5 8
выходные данные
1 2 6 5 8 7 3 4 9 Сделать на PascalABC
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
N, A, B, C, D, i: integer;
sequence: array[1..1000] of integer;
begin
readln(N, A, B, C, D);
for i := 1 to N do
sequence[i] := i;
for i := A to B do
write(sequence[B - i + A], ' ');
for i := C to D do
write(sequence[D - i + C], ' ');
end.