помогите написать алгоритм и решение в рукописном виде

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
var
n, i, j, P, Sum : Integer;
begin
Write('Введите n = '); ReadLn(n);
Sum := 0;
{ для всех i от 1 до n}
for i := 1 to n do
begin
P := 1;
{ произведение P = n * (n+1) * (n+2) * ...* 2n }
for j := i to 2*i do
P := P * j;
{ сумма произведений }
Sum := Sum + P;
end;
WriteLn('Результат = ', Sum);
end.