xtended Возможны небольшие ошибки
var a,b,s,n,i: integer;
begin
readln (n);
s:=1
for i:=1 to n do
begin
b:=0;
 for a:=1 to i do
 b:=b+2;
 end;
s:=s+1/b;
end;
writeln (s);
end.