Question

Паскаль.Найти приближенное значение суммы ряда.Вот примерно, что смог сделать, только надо дополнить или исправить что-то:var n,k,s,e:real;beginwriteln ('vvedite slagaemoe');readln(e);n:=1;s:=1;repeatn:=n+1;k:=1/n;s:=s+k;writeln(s);until k=e;writeln ('summa riada =',s);end.Напишите пожалуйста, полностью программу.