Вычислить сумму ряда 1 - 1/2 +1/3 - ... +1/999 - 1/1000 справа – налево, в паскале

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal для вычисления суммы данного ряда:

program SummationSeries;
var
i: Integer;
sum: Real;
begin
sum := 0;
for i := 1000 downto 1 do
begin
if i mod 2 = 0 then
sum := sum - 1 / i
else
sum := sum + 1 / i;
end;
writeln('Сумма ряда = ', sum:0:6);
end.

Этот код вычисляет сумму ряда 1 - 1/2 + 1/3 - ... + 1/999 - 1/1000 справа налево и выводит результат на экран.