Suma

Suma[n_, x_, i_] := Module[{n1 = n, x1 = x, i1 = i, suma = 0},
   For[i1, i1 <= n1, i1++,
    suma = suma + (x1^i1);
    ];
   suma
   ];