задание в Паскале: вычислить сумму:1+(2)/(2)+(2+3)/(2*3)+(2+3+4)/(2*3*4) и так далее

Chislitel := 0;
Znamenatel := 1;
Summa := 0;
for i := 1 to N do
begin
Chislitel := Chislitel + i;
Znamenatel := Znamenatel / i;
Summa := Summa + Chislitel * Znamenatel;
end;