Вместо каждого знака ? Вставить знак одной из 4 арифметических операций - PascalABC.NET

Формулировка задачи:

Задание: В написанном выражении ((((1?2)?3)?4)?5)?6 вместо каждого знака ? вставить знак одной из 4 арифметических операций +,-,*,/ так, чтобы результат вычислений равнялся 35(при делении дробная часть в частном отбрасывается.) Найти все решения. Пока что получилось как-то так, но выводит не правильные ответы.

                    Листинг программы
                
 
                            
                        
var
  j1,j2,j3,j4,j5:integer;
  x:real;
begin
  x:=1;
  begin
    for j1:=1 to 4 do
    begin
      if j1 = 1 then x:=x+2;
      if j1 = 2 then x:=x-2;
      if j1 = 3 then x:=x*2;
      if j1 = 4 then x:=x / 2;
      for j2:=1 to 4 do
      begin
        if j2 = 1 then x:=x+3;
        if j2 = 2 then x:=x-3;
        if j2 = 3 then x:=x*3;
        if j2 = 4 then x:=x / 3;
        for j3:=1 to 4 do
        begin
          if j3 = 1 then x:=x+4;
          if j3 = 2 then x:=x-4;
          if j3 = 3 then x:=x*4;
          if j3 = 4 then x:=x / 4;
          for j4:=1 to 4 do
          begin
            if j4 = 1 then x:=x+5;
            if j4 = 2 then x:=x-5;
            if j4 = 3 then x:=x*5;
            if j4 = 4 then x:=x / 5;
            for j5:=1 to 4 do
            begin
              if j5 = 1 then x:=x+6;
              if j5 = 2 then x:=x-6;
              if j5 = 3 then x:=x*6;
              if j5 = 4 then x:=x / 6;
            end;
            if x=35 then print(j1,j2,j3,j4,j5,'/');
          end;
        end;
      end
    end;
  end;
end.

Я знаю что код написан левой лапой зомби курицы. Но как есть

Решение задачи: «Вместо каждого знака ? Вставить знак одной из 4 арифметических операций»

textual
                            Листинг программы 
                        
if jn = 1 then x:=x+5;
if jn = 2 then …