Const
    n=100;
    x=2;

Var
    i:integer;
    Sum:extended;


Function FacDim(x:real; m:integer):extended; // x/(m!)
Begin
    if m>=1 then begin
                    i:=0;
                   Repeat
                    inc(i);
                    x:=x/i;
                   Until i=m;
                 end;
     FacDim:=x;
End;



Function power(a:real; b:integer):extended; //a^b
Const
   TMP:extended=1;
Begin
   if b<>0 then for i:=1 to b do TMP:=TMP*a;
   power:=TMP;
   //power:=exp(b*ln(a));
End;


BEGIN
   Sum:=0;
   for i:=0 to n do begin
                       Sum:=Sum+FacDim(power(x,i) , i);
                       WriteLn(i,') ',Sum,'  x=',power(x,i));
                    end;
   WriteLn(Sum);
END.