Pascal. Вычисление ряда

[poison777]

помогите, пожалуйста...
дано натуральное N принадлежащее множеству натуральных чисел. Написать программу, вычисляющую:

1*2+2*3*4+...+n..2n

[XeruH]

program MyProg;

var
  i, j, n, k, sum: Cardinal;

begin
  write('Введите n: ');
  readln(n);

  j := 1;
  while j <= n do
  begin
    k := 1;
    for i := j to j*2 do
      k := k * i;
    sum := sum + k;
    inc(j);
  end;

  writeln('Результат = ', sum);
  readln;
end.

[poison777]

спасибо огромное