Паскаль.Помогите исправить программу под эту...

Question

Паскаль.Помогите исправить программу под эту формулу: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.

Answer 1

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