Найти сумму элементов рядом 1/3,2/5,3/7,4/9,5/11 по информатике

program zz1;

var a, b, i : integer; / / задаем переменные целого типа

r:real; / / задаем переменную не целого типа

begin

write (' введите до какого числа будем считать сумму ряда '); / / вводим с клавиатуры число

read (a);

b:=3; / / задаем начальное значение для знаменателя

for i:=1 to a do / / организуем цикл в котором будем перебирать числители ряда

begin

r:=r + i/b; / / вычисляем сумму чисел

b:=b + 2; / / значение знаменателя увеличиваем на два

end;

write (' сумма элементов ряда = ', r); / / выводим ответ

end.