Можно ли перед каждым из чисел от 1 до N расставить знаки «+» или «–» так, чтобы сумма получившихся чисел была равна 0?

function GetAllBoolArr(a: array of boolean; i: integer): sequence of array of boolean;
begin
  if i=a.Length then
    yield a else
  begin
    var temp := Copy(a);
    yield sequence GetAllBoolArr(temp, i+1);
    temp[i] := true;
    yield sequence GetAllBoolArr(temp, i+1);
  end;
end;
 
begin
  var res :=
  GetAllBoolArr(new boolean[ReadlnInteger],0)
  .FirstOrDefault(a->a.Numerate.Sum(t->t[1]?t[0]:-t[0])=0);
  
  if res=nil then
    writeln('IMPOSSIBLE') else
    res.Select(b->b?'+':'-').Println;
end.

begin
  var n:=ReadInteger;
  if n mod 4 in [0,3] then
  begin
    var s:='';
    // тут генерируем ответ, любой. Так как чекер отрабатывает в проверяющей системе.
    // подумайте как это сделать.
    s.Print
  end
  else
    Print('IMPOSSIBLE')
end.

var
  n, i, k: Integer;
begin
  Read(n);
  if (n+1) mod 4<2 then begin
    k:=(n+1) div 4;
    for i:=1 to n-k*3 do Write('+');
    for i:=1 to k*2 do Write('-');
    for i:=1 to k do Write('+');
    WriteLn;
  end else WriteLn('IMPOSSIBLE');
end.

var
  s := '-' + '++--' * 25000;
  n := ReadInteger;
begin
  Print(n mod 4 in [0, 3] ? s[n::-1] : 'IMPOSSIBLE')
end.

var
  n := ReadInteger;
  s := '-' + '++--' * ((n+1) div 4);
begin
  Print((n+1) mod 4 < 2 ? s[n::-1] : 'IMPOSSIBLE')
end.

Println(s[n::-1].Select((x, i)-> (x = '+' ? 1 : -1) * int64(i + 1)).Sum)

begin
  var n:= ReadInteger;
  Print((n+1) mod 4 < 2 ? ('-++-' * ((n+1) div 4))[n::-1] : 'IMPOSSIBLE');
end.

const s: String[4] = '-++-';
var n: Integer;
begin
  Read(n);
  if (n+1) mod 4<2 then begin
    Write(Copy(s,1+Ord(Odd(n)),4));
    for n:=1 to (n-1) div 4 do Write(s);
    WriteLn;
  end else WriteLn('IMPOSSIBLE');
end.

var n: Integer;
begin
  Read(n);
  if (n-1) mod 4>1 then begin
    if not Odd(n) then Write('-'); Write('++-');
    for n:=1 to (n-1) div 4 do Write('-++-');
    WriteLn;
  end else WriteLn('IMPOSSIBLE');
end.