Составить программу по данной формуле

[dukkill]

Такое вот задание. Программа в паскале. Помогите чем можете

[Костя КС]

                                                                                     
program ll;
var
i,n : integer;
x,s : real;
begin
readln(n);
readln(x);
s := 0;
if x=1 then writeln('деление на ноль') else
for i := 1 to n do s:= s +(power(2*x+1,i))/(x-1);
writeln(s);
end.

[g101k]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
  i, n: Integer;
  Sum, Buf, x : Double;

begin
  Sum := 0;
  Writeln('Insert N');
  Readln(n);
  Writeln('Insert X');
  Readln(x);
  for i := 1 to n do
  begin
    Sum := Sum + (Power((2 * x + 1), i))/(x - 1);
  end;

  Writeln('Answer := ', floatToStrF(Sum, ffGeneral, 10,10) );
  Readln;
end.

[IT-man]

var
i,n : integer;
x,s,sl : real;
begin
readln(n);
readln(x);
sl:=1;s:=0;
for i:=1 to n do
begin sl:=sl*(2*x+1);
s:=s+sl/(x-1);
еnd;
writeln(s);
end.