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

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.