Помогите решить информатику: S=1/(1+2)+1/(1+2+3)+1/(1+2+3+4)+...+1/(1+2+...n)

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.