Если я еще не забыл паскаля, то как-то так: Кодeps := 0.0001; for i:=1 to 10 do begin    x_temp := x[i];{ обрабатываемый X }    fact := 1; { факториал на первой итерации }     power := 1; { степень X на первой итерации }     count := 0; { номер итерации }     sum := 0; { сумма }    item := 1; { значение слагаемого на первой итерации }    while (item >= eps)    begin      sum := sum + item;      count := count + 1;      power := power * x_temp; { степень X на конкретной итерации }      fact := fact * count; { факториал на конкретной итерации }       item := power / fact; { значение слагаемого на конкретной итерации }    end; end;