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

program cycle_;

var n: byte;

s, p: int64;

begin

writeln ('Введите число');

Readln (n);

s: = 0;

for i: integer: = 1 to n do

begin

p: = 1;

//цикл для подсчета произведения n * (n + 1) ... 2 * n

for k: integer: = i to 2 * i do p: = p * k;

s: = s + p; //сумма произведений

end;

writeln (s);

end.