Расставить между цифрами знаки арифметических операций

[yura4044]

Паскаль АВС. Для заданного набора целых чисел без знака расставить между ними знаки сложения, вычитания, умножения и целого деления так, чтобы результат полученного арифметического выражения был равен заданному числу. Вывести все возможные варианты и подсчитать их.

[yura4044]

Для 2 операций (сложение и вычитание) ещё можно похожее найти, а для 4 никак не получается.
Var n , i , j : longint;
a : array[1..25] of integer;
res , s : integer;
found : boolean;

Function getBit(i , j : longint) : longint;
Begin
if (i and (1 shl j)) <> 0 then
getBit := 1
else
getBit := 0;
End;

Begin
Read(s);
n:=10;
for i := 1 to n do
a[i]:=i;
for i := 0 to (1 shl (n - 1)) - 1 do begin
res := a[1];
for j := 0 to n - 2 do
if getBit(i , j) = 0 then
res := res + a[2 + j]
else
res := res - a[2 + j];
if res = s then begin
Write(a[1]);
for j := 0 to n - 2 do
if getBit(i , j) = 0 then
Write('+' , a[2 + j])
else
Write('-' , a[2 + j]);
found := true;
WriteLn('=' , s);
break;
end;
end;
if not found then
WriteLn('No solution');
End.

[Аватар]

Если добавить умножение и деление, то сложность решения на порядок возрастет, поскольку еще приоритеты операций всплывут. И если не можешь просто со сложением и вычитанием, то прямая дорога в раздел Фриланс, может кто и сделает за вознаграждение ))

[Serge_Bliznykov]

готовое решение подобной задачи есть в теме Арифметические действия с цифрами числа