Вычислить последнюю сумму членов ряда при которой модуль разности между текущим и предыдущим членами ряда остается меньше 1.вывести на экран значение последнего слагаемого и его номер 1+1/2+1*2,4+1*2*3/8
program pr;
var a1,a2,s:real;
pf,p:longint;
i:integer;
begin
a1:=1;
a2:=1/2;
pf:=1;
i:=2;
p:=i;
s:=a1;
while abs(a2-a1)<1 do
s:=s+a2;
a1:=a2;
pf:=pf*i;
p:=p*2;
a2:=pf/p;
i:=i+1;
end;
writeln('s=',s:8:3);
writeln('a=',a1:8:3);
writeln('nom=',i-1);
readln
end.
Буду благодарна, если отметите