uses crt;
Const Max = 10;
Var pt: array[1..4] of char;
A : array[1..max] of char;
N : byte; kq,bt: real; y: boolean;
Procedure Nhap;
Begin
n:=6;kq:=36;
End;
Procedure Ktao;
Var i : byte;
Begin
Y := False;
pt[1] := '+'; pt[2] := '-'; pt[3] := '*'; pt[4] := '/';
For i:=1 to n-1 do a[i] := '+';
End;
Procedure Tinhbt;
Var j:byte;
Begin
bt:=1;
For j:=1 to n-1 do
begin
If a[j] = '+' then bt := bt +(j+1);
If a[j] = '-' then bt := bt -(j+1);
If a[j] = '*' then bt := bt *(j+1);
If a[j] = '/' then bt := bt /(j+1);
end;
End;
Procedure Xuat;
Var i:byte;
Begin
For i:=1 to n-1 do write('('); write('1');
For i:=1 to n-1 do write(a[i],i+1,')');
Writeln(') = ',kq:0:2);
Readln;
End;
Procedure Try(i:byte);
Var j: byte;
Begin
For j:=1 to 4 do
begin
a[i] := pt[j]; tinhbt;
If bt = kq then begin xuat; exit; end
else If i=n-1 then break;
Try(i+1);
end;
End;
BEGIN
clrscr;
nhap;
Ktao;
Try(1);
END.