Написать простенькую программу в паскаль(цикл с параметром) : вычислить сумму ряда до n количества значений: s=1-1/1+1/3-1/5+

{s=1-1/1+1/3-1/5+}
var i,n,z:integer;
   s: real;
begin
 writeln('Введите n');
 readln(n);
 s:=1; z:=1;
 for i:=1 to n-1 do
 begin
  z:=z*(-1);
  s:=s+z/(2*i-1);
 end;
 writeln(s);
end.