Составить программу в паскале и блок схему: вычисление суммы ряда s=1-1/2+1/4-1/6+/n.

Вот держите:

var n,i,l,m:integer; sum:real;
begin     
readln(n);     
sum:=1; l:=1;     
while m<>n do  begin         
m:=m+2;         
sum:=sum-((1/m)*l);         
l:=l*-1;     
end;     
writeln(sum);
end.