Дано натуральное число 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.