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

program ryad;vara,i:integer;b:real;beginwriteln('Vvelbnt "N"');readln(a);if (a mod 2) = 0 then writeln('Chislo "N" dollno nut chetnuym')else begin     b:=0;     i:=3;     repeat         b:=b+(1/i);         i:=i+2;     until i=a;writeln('S=',b);end;readln;end.