Для организации вычисления конечных сумм и произведений пользуются операцией переприсваивания в сочетании с циклическим оператором FOR. Операция переприсваивания очень часто используется в программировании и заключается в том, что переменной присваивается значение выражения, при построении которого использована та же самая переменная. Например,

a := a+1; { Увеличение а на единицу }
x := sin(x); { В х записывается значение синуса х }
y := -y; { Изменение знака y }

Значение переменной, которая участвует в операции переприсваивания, должно быть к этому моменту определено!

Ниже приведены примеры программ, вычисляющих следующие выражения

PROGRAM Summa;
USES CRT;
VAR
  k, n : Integer;
     S : Real;
BEGIN
  ClrScr;
  Write('Введите значение n: ');
  Readln(n);
  S := 0; { начальное значение суммы }
  for k:=1 to n do S := S + 1/k; { вычисляем сумму }
  Write('Сумма: ', S);
  Readln
END.

PROGRAM Product;
USES CRT;
VAR
  P, x : Real;
     k : Integer;
BEGIN
  ClrScr;
  Write('Введите значение x: ');
  Readln(x);
  P := 1; { начальное значение произведения }
  for k:=1 to 10 do P := P * (x-k); { вычисляем произведение }
  Write('Произведение: ', P);
  Readln
END.

Обратите внимание на начальные значения переменных S и P в приведенных выше примерах.