Найти сумму чисел ряда

var i: longint;     n: integer;     s: real; begin   write('число членов ряда (от 2 до 15):  ');   readln(n);   if n>15 then n:=15;   for i:=1 to n do   s:=s+power(2,2*i-1)/(2*i-1);   writeln('сумма ряда (n = ',n,')  = ',s:12:4); end.