Помогите срочно решить задачу В Pascal S=1/2-2/3+3/4-5/6+.... Цикл

$var \ i,n:integer;\\ s:real;\\ begin\\ s:=0;\\ n:=10; \\ for \ i:=1\ to\ n \ do \\ \ \ s:=s+power(-1,i \ div \ 2)*(i/(i+1));\\ writeln(s);\\ end.\\$
n-необходимая точность, 1000 хватает вполне (для типа реал)