Вычислить сумму 1-1/2+1/)^n+1*1/n условный оператор и операцию возведение в степень не использовать. нужно блок схему и программу.

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var c:=1.0;
  var s:=0.0;
  for var i:=1 to ReadInteger('n=') do begin
    s+=c/i; c:=-c
    end;
  Writeln('s=',s)
end.

Тестовое решение:
n= 7
s=0.759523809523809