Паскаль-задача

[Baby33]

Помогите решить

[capta1n]

program capta1n;
var
 x,z,k : real;
 n : 1..15;
 i : 1..29;
BEGIN
  write ('x= '); readln(x);
  z:=0;
  if x<>0 then for n:=1 to 15 do
               begin
                 k:=1;
                 for i:=1 to 2*n-1 do k:=k*x;
                 z:=z+n*k
               end
          else z:=0;

  writeln ('Result= ',z:0:2);
  readln
END.