Написать программу,которая вычисляет сумму первых n членов ряда 1+1/2+1/4+1/6… Количество суммируемых членов ряда задается во время работы программы. Турбо паскаль

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

Программа на Turbo Pascal:

program SumSeries;
var
n, i: integer;
sum, term: real;
begin
sum := 0;
write('Введите количество суммируемых членов ряда: ');
readln(n);
writeln('Сумма первых ', n, ' членов ряда: ');
i := 1;
term := 1;
while i <= n do
begin
sum := sum + term;
write(term:0:2, ' ');
term := 1 / (2 * i);
i := i + 1;
end;
writeln;
writeln('Сумма ряда: ', sum:0:2);
end.

Программа запрашивает у пользователя количество суммируемых членов ряда и выводит сумму первых n членов этого ряда.