Вычисление последовательности...

[Sanklad]

Помогите плиз нужно написать программу на паскале для вычисления такой последовательности: (1+2)*(1+2+3)*(1+2+3+4)*...(1+2+3.. .+10)
я написал такой алгоритм, но он неверен. Как исправить ошибку незнаю. Помогите!!!

program a1;
Uses Crt;
Var f,a,i : LongInt;
Begin
ClrScr;
f:=1;
a:=1;
For i:=2 to 10 Do
a:=a+i;
f:=f*a;
Write('Ответ',f);
Readln
End.

[Step_UA]

объявите переменную a
в цикле должен находится составной оператор

For i:=2 to 10 Do
 Begin
  a:=a+i;
  f:=f*a;
 End;

для f тип скорее всего нужен Double или более вместимый

[Sanklad]

поставил составной оператор в цикл, но результат остался такойже...
умножается лишь (1+2+3...10) на f=1 ..

[Step_UA]

замените свой код

For i:=2 to 10 Do
 a:=a+i;
 f:=f*a;

на выше приведенный, у вас в цикле вычисляется значение a и лишь по окончанию его вычисляется f

[Sanklad]

Огромное спасибо!