program lab_03; var n: integer; k: integer; sum, znam :real; begin writeln('BBEDUTE n: '); readln(n); sum:=0; znam:=1; for k:=1 to n do begin znam :=-znam/k; sum :=sum+(k+1)*znam; end; writeln(sum:0:6); readln end.