Дана последовательность натуральных чисел 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

begin

  var n, a, b, c, d: integer;

  readln(n, a, b, c, d);

  if a > c then (a, b, c, d) : = (c, d, b, a);

  var s : = 1.to(a - 1);

  if b < c then // ( ) [ ]

    s : = s + b.downto(a) + (b + 1).to(c - 1) +

        d.downto(c) + (d + 1).to(n)

  else

  if d < b then // ( [ ] )

  begin

    s : = s + seqgen(c - a, t -> b - t) +

        seqgen(d - c + 1, t -> t + a + b - d) +

        seqgen(b - d, t -> a - t + b - d - 1) + (b + 1).to(n)

  end

    else // ( [ ) ]

  begin

    s : = s + seqgen(c - a, t -> b - t) +

        seqgen(d - b, t -> d - t) + seqgen(b - c + 1, t -> a + t) +

        (d + 1).to(n);

  end;

  s.println;

end.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.

program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.