Задача на Delphi 7

[Анастасья]

Дано натуральное n. Вычислить: S=1*2+2*3*4+...+n*(n+1)*...*2n
Помогите пожалуйста составить программу.( факториал здесь не используется....)

[Naive]

function schet(n:integer):integer
var i,p:integer;
begin
p:=n;
for i:=1 to n do
p:=p*(n+i);
return p;
end;

тело программы:

for j:=1 to n do sum:=sum+schet(j);

[Анастасья]

Премного благодарна за помощь!))

[Анастасья]

а можно представить эту же программу без команды function ?

[Prisioner]

program zadacha;
var
   i, j, n: integer;
   s, p: longint; {можно тоже сделать integer, смотря о каком порядке чисел идёт речь}
begin
writeln('Vvedite 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;
writeln('s= ', s);
readln;
end.