дано натуральное число n вычислить 1*2+2*3*4+...+ n*(n+1)*...*2n (паскаль, цикл)

var  s, p: longint;  i, j, n: integer;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;  Writeln('Сумма равна ', s)end.Тестовое решение:Введите n: 5Сумма равна 158306