Написать программу для нахождения арифметической суммы 1-1/2+3-1/4+. . . . +29​

var

n,i:integer

s:real;

begin

WriteLn('Вычисление частичной суммы ряда: 1+1/2+1/3+…');

Write('Введите количество суммируемых членов ряда -> ');

ReadLn(n);

s:=0;

for i:=1 to n do

s:=s+(1/i);

WriteLn('Сумма первых ',n,' членов ряда равна: ',s);

ReadKey;

end. С тебя лучший )