Вычисление суммы 6 слагаемых того же ряда с использованием цикла for - Turbo Pascal

Формулировка задачи:

Program Summar2;
uses Crt;
var  R, S:  real;
        i: integer;
begin
ClrScr;
  write(‘ Циклы: ‘);
for i: = 0 to 5 do
   write(i:3);
    writeln;
     S: = 0;
for i: = 0 to 5 do begin
   R: = 1 / Sqr(1 + (2*i));
   write(‘    ‘  ,  R:1:3);
   S: = S + R;
  end;
 writeln;
  write(‘ Сумма равна: ‘  ,  S:5:3);
  readln
end.

Циклы:  0  1  2  3  4  5
     1.000   0.111   0.040   0.020   0.012   0.008
Сумма равна:   1.192

Здесь всё в порядке. Только хотелось бы, чтобы выполнение этой программы было не с двумя циклами for, как у меня, а с использованием од- ного цикла for. Возможно такое?

Решение задачи: «Вычисление суммы 6 слагаемых того же ряда с использованием цикла for»

Листинг программы

var  r,s:real;
     i:byte;
begin
s:=0;
for i:=0 to 5 do
 begin
  r:=1/sqr(1+(2*i));
  writeln(i:3,r:6:3);
  s:=s+r;
  end;
writeln;
write('Сумма=',s:0:3);
end.

Объяснение кода листинга программы

В данном коде используется цикл for для вычисления суммы шести слагаемых ряда. Переменная s инициализируется значением 0, которое будет увеличиваться на значение каждого слагаемого. Внутри цикла переменная i принимает значения от 0 до 5 (включительно). Для каждого значения i выполняется следующая последовательность действий:

Вычисляется значение переменной r с помощью формулы 1/sqrt(1 + (2*i)). Это значение представляет собой одно из слагаемых ряда.
Значение переменной r записывается в файл с помощью функции writeln. В данном случае, каждое слагаемое выводится в отдельной строке с разделителем :.
Значение переменной s увеличивается на значение переменной r. Это позволяет вычислить сумму слагаемых ряда.
После выполнения всех итераций цикла, значение переменной s выводится на экран с помощью функции write. Таким образом, данный код вычисляет сумму шести слагаемых ряда и выводит ее на экран.