prod = 1;
sum = 0;
x = 5;
y = -5;
z = -2;
one = 1;
three = 3;
seven = 7;
Do[
 sum += Abs[j];
 If[Abs[prod] < 2^27 \[And] j != 0, prod *= j];
 ,
 {j,
  Join[
   Range[-three, 3^3, three],
   Range[-seven, seven, x],
   Range[555, 550 - y],
   Range[22, -28, -three],
   Range[1927, 1939],
   Range[x, y, z],
   Range[11^x, 11^x + one]
   ]
  }
 ]
sum
prod