Нужно составить блок схему или описать словестно выполнение программы

Вычислить произведение n сомножителей (1+2)(3+4+5)(6+7+8+9)...

program somnog;
var n,i,k1,k2,m:integer;
s,p:real;
begin
write ('Введи количество чисел n= ');
read(n);
if n>0 then
p:=1;
k1:=1;
k2:=2;
for i:=1 to n do
begin
s:=0;
for m:=k1 to k2 do
s:= s+m;
p:=p*s;
k1:=k2+1;
k2:=k1+i+1;
end;
writeln('p=',p:0:0);
end.