Вычислить сумму 100 слагаемых ряда

uses crt;
const n=100;
function Summa(x:real):real;
var i,j:byte;
    s,c,z:real;
begin
s:=0;
for i:=1 to n do
 begin
  c:=1;
  z:=1;
  for j:=1 to i do
   begin
    c:=c*x;
    z:=z/j;
   end;
 s:=s+c*z;
 end;
Summa:=s;
end;
begin
clrscr;
writeln('Сумма ряда с N-ым членом An=x^n/n!');
writeln('x=0.15  сумма=',Summa(0.15):0:4);
writeln('x=0.22  сумма=',Summa(0.22):0:4);
writeln('x=0.28  сумма=',Summa(0.28):0:4);
writeln('x=0.35  сумма=',Summa(0.35):0:4);
readln
end.

writeln('x=0.15  сумма=',Summa(0.15):0:10);

for j:=1 to i do//от 1 до очередного значения номера члена ряда
   begin
    c:=c*x;//вычисляем числитель дроби, возводим х в нужную степень
    z:=z/j;//вычисляем обратный факториал знаменателя

c:=c*x;

uses crt;
const n=100;
var i,j,k:byte;
    x,s,c,z:real;
begin
clrscr;
writeln('Сумма ряда с N-ым членом An=x^n/n!');
x:=0.15;
k:=0;
repeat
s:=0;
for i:=1 to n do
 begin
  c:=1;
  z:=1;
  for j:=1 to i do
   begin
    c:=c*x;
    z:=z/j;
   end;
  s:=s+c*z;
 end;
writeln('x=',x:0:2,'  сумма=',s:0:4);
k:=k+1;
if odd(k) then x:=x+0.07
else x:=x+0.06;
until k=4;
readln
end.

i=3;
f:=1;
for j:=1 to i do
f:=f/j;