Посчитать сумму

[логарифм]

Тут нужно для заданного натурального числа н посчитать сумму
S=1*2+2*3*4+...+n*(n+1)*...*2n
что-то совершенно не пойму то, как расписать сей пример..
вот только начала чуть-чуть..но мыслей в голове мало..
program cased;
var
n,i,s:integer;
x,y:real;
BEGIN
writeln('Vvedite n.');
readln(n);
s:=0;
for i:=1 to 2*n do

writeln('Summa = ',s);
END.

ЗЫ- да я идиот, и задача проста, но моск отказывается ее переварить

[puporev]

Если задача для n<=7(в пределах типа longint), то она действительно простая.

var n,i,j:integer;
    p,s:longint;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do
 begin
  p:=1;
  for j:=i to 2*i do
  p:=p*j;
  s:=s+p;
 end;
write('s=',s);
readln
end.

Но для больших n это задача на "длинную" арифметику и это уже не очень просто.

[логарифм]

как я поняла задача без пределов

[puporev]

Думаю Вы правильно поняли, поэтому читайте все про умножение и сложение "длинных" чисел.

[логарифм]

в любом случае, спасибо за помощь)