Паскаль. исправить программу под эту формулу: 1+(1/(1+2))+(1/(1+2+3))+(1/(1+2+3+4))+(1/(1+2++n)) var s : real; i, n : integer; begin s : = 0; read (n); for i : = 1 to n do s : = s + 1 / i; writeln (s); end.

Var
s : real;
i, n, s1: integer;
begin
s := 0;
s1:=0;
readln (n);
for i := 1 to n do 
 begin
 s1:=s1+i;
 s := s + 1 / s1;
 end;
writeln (s);
end.

Пример:
5
1.66666666666667