помогите написать вторую часть задачи, я несилён в програмировании.

Question

1)Известно, что ряд 1+1/2+1/3+1/4+...расходится. Вычислить число членов ряда, при котором их сумма впервые

превысит A=10. Использовать при этом один из операторов цикла. 2) Вывести сумму ряда после каждых 100

слагаемых, но число таких выводов не должно превышать 15.

Полина Сулавко · Accepted Answer

Этот ряд не превышает 10.
При 10 000 членов их сумма всего 8,4854709.

А сумма 100 членов = 6,1873775.

programden;

uses TPCrt;

var i:integer;

A,x:real;

beginClrScr; {очистка экрана}

x:=1;

A:=1;

for i:=1 to 1000 do begin

A:=A+x/i;

if A>10 then writeln(i:5,A:15:7);

end;

writeln(i:5,A:15:7);

readln(i);

end.