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

program cycle_;var n: byte; s, p: int64;beginwriteln(\'Введите число\');Readln(n);s:= 0; for i: integer:= 1 to n do beginp:= 1;//цикл для подсчета произведения n * (n + 1)...2 * nfor k: integer:= i to 2 * i do p:= p * k; s:= s + p;//сумма произведений end;writeln(s);end.