Цикл с параметром 2/3+3/4+4/5+...+10/11 количество знаков после есятичной строчки 3

Var a,b,c,i:integer; d,e:real; begin readln(a); b:=1; c:=2; e:=0; for i:=1 to a do begin b:=b+1; c:=c+1; d:=b/c; e:=e+d; if i=a then write(e:0:3) end end.