{$N+$E+}
Program prik01;
{Soucet rady 1 - 1/2 + 1/3 - 1/4 + ... 1/N-1}

VAR
  i,n:integer;
  sum,sgn,term:real;
BEGIN
  WRITELN('Zadejte pocet clenu N:');
  READLN(n);
  sum:=0.0;
  sgn:=-1.0;
  term:=1.0;
  FOR i:=1 TO n DO BEGIN
    sgn := -1.0*sgn;
    term := sgn/i;
    sum := sum + term;
  END;
  WRITELN('Soucet je',sum);
  WRITELN('Stisknete ENTER pro ukonceni');
  READLN;
END.