pascal užduotis

Norėčiau paprašyti, gal kas galėtų išspręsti šią programą?

"Sudarykite programą, kuri apskaičiuotų sumą 1*2+2*3*4+3*4*5*6+...+n(n+1)*(n+2)*...(2n).

n=2 rez=26

n=5 rez=158306"

Naiviai tikiuosi, jog bandai ir pats daryti, o ne tik įmetęs sąlygą lauki sprendimo :)

program Skaiciu_seka;
var n,                                   // Sekos skaièius
   i,                                   // For ciklo kintamasis
   j    :integer;                       // While ciklo kintamasis

    // Kadangi ðie kintamieji gali perþengti integer tipà, jø tipas longint
   a,                                   // Kintamasis vienam sekos nariui apskaièiuoti
   suma :longint;                       // Kintamasis kaupiantis sumà

begin
 Write('Áveskite n reikðmæ: ');
 ReadLn(n);
 suma := 0;
 for i := 1 to n do
  begin
   a := 1;
   j := i;
   while j <= 2 * i do
    begin
     a := a * j;
     j += 1;
    end;
   suma += a;
  end;
 WriteLn('Skaièiø sekos suma: ',suma);
 Readln;
end.

Aišku, kad nebando... Tą patį velnią į LM forumą parašęs :)

Cibulinskis labai jau sudetingu keliu nuejai, galima gi daug paprasciau :))

Stai kodas:

program skaiciukai;
uses crt;
var i,n,j : integer;
   s : longint;

function sk_daugyba(n : integer):longint;
var i : integer;
   k : longint;
begin
k := n;
   for i := 1 to n do
       begin
           k *= (i+n) ;
       end;
   sk_daugyba := k;
end;

begin
   write('Iveskite skaiciu n: '); readln(n);
  for i := 1 to n do
   begin
       s += sk_daugyba(i);
   end;
   writeln('Atsakymas: ', s);
 Readln;
end.

Ačiū labai abiem :)