Packal цыклы

[lunnamedl]

4. С клавиатуры вводится целочисленная последовательность. Ввод продолжается до того как сумма всех введенных чисел превысит (станет больше 100). Вывести сумму на экран.
• Вычислить P = 1 . 2 + 2 . 3 . 4 + 3 . 4 . 5 . 6 + ...+ N . (N+1) . ... . 2N.


помогите

[IT-man]

. - Что за оператор? "умножить?"

[lunnamedl]

Сообщение от IT-man

. - Что за оператор? "умножить?"

просто криво напечаталось=) это умножить

[IT-man]

s:=0;
i:=1;
while s<=100 do begin
ch:=1;
for j:=i to 2*i do
ch:=ch*j;
s:=s+ch;
inc(i);
end;