Паскаль. Программа для вычисления суммы ряда чисел S=1/3+1/5+1/7+1/9+1/n

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

program SumSeries;
var
n, i: integer;
S: real;
begin
write('Enter the value of n: ');
readln(n);

S := 0;

for i := 3 to n step 2 do
begin
S := S + 1 / i;
end;

writeln('Sum of the series for n = ', n, ' is ', S:0:2);
end.