Начать с правильного расчёта итоговой суммы. Надо:
P = 1 / (a0 + a1 +...),
а вы предлагаете (n+1) раз подсчитать значение "b", при этом на каждой итерации цикла новое значение затирает старое и только последнее значение выводится в качестве результата. Надо так:
Код:
S:= 0.0;
for k:=0 to n do
begin
...
b:= <g в степени k> / <k!>;
S:= S + b; { или не использовать "b", а сразу формулу из предыдущей строки засунуть в эту строку }
end;
P:= 1.0 / S;