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

vars : real;i, n, s1: integer;begins := 0;s1:=0;readln (n);for i := 1 to n do  begin s1:=s1+i; s := s + 1 / s1; end;writeln (s);end.Пример:51.66666666666667