Помогите с программированием в Паскале

[KatyP!ATD]

Помогите с программированием в Паскале

Написать программу вычисления выражения:

 

[Vladimir_S]

Написать программу вычисления выражения:

Написал.

VAR
 i,N:Integer;
 S,a:Real;
BEGIN
 S:=0;
 Write('N= ');
 Readln(N);
 a:=1;
 S:=a;
 For i:=2 to N do
  begin
   a:=-a*(i-1)/i;
   S:=S+a;
  end;
 Writeln('S= ',S:7:5,'  Ln(2)= ',Ln(2):7:5);
 Readln;
END.

Ln(2) там для сравнения, поскольку при возрастании N ряд к нему сходится.