Составить программу в паскале и блок схему: вычисление суммы ряда 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: =/m)*l);           l: =l*-1;       end;       writeln(sum); end.