Циклы. Вычислить сумму первых n членов ряда - Turbo Pascal

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

Добрый день. Помогите, пожалуйста решить задачу через цикл for Задание. Напишите программу, которая вычисляет сумму первых n членов ряда 1/3 + 3/6 + 5/9 + ... Количество суммируемых членов ряда вводится во время работы программы.

Решение задачи: «Циклы. Вычислить сумму первых n членов ряда»

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

var s: Real;
    i,j,n: Integer;
 
begin
    Write('Enter n: ');
    ReadLn(n);
    s := 0;
    j := 1;
    for i := 1 to n do
    begin
        s := s + (j)/(i*3);
        j := j + 2;
    end;
    WriteLn('Sum = ',s:0:2);
    ReadLn;
end.

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

Переменная s инициализируется значением 0.
Переменные i, j и n инициализируются целочисленными значениями 1, 1 и 20 соответственно.
Пользователю предлагается ввести значение n.
Значение n сохраняется в переменной n.
Переменная s инициализируется значением 0.
Переменная j инициализируется значением 1.
Запускается цикл for, который выполняется от 1 до n включительно.
Внутри цикла переменная s инициализируется суммой (j)/(i*3).
Переменная j инициализируется значением j + 2.
После завершения цикла переменная s содержит окончательное значение суммы первых n членов ряда.
Выводится сообщение 'Sum = ', за которым следует значение переменной s.
Программа завершается, ожидая ввода пользователя.