Впрограмме pascal найти сумму ряда 1 - 1/ 2 + 1/3 - 1/4 + 1/5 -…

Var
  i,s,p,t:double;
begin
  i:=1; p:=1;
  repeat
    t:=1/i; s:=s+p*t/i; i:=i+1
  until t<=1e-5;
  Writeln('Сумма ряда с точностью 0.00001 равна ',s:7:5)
end.

Тестовое решение:
Сумма ряда с точностью 0.00001 равна 1.64492