Function Potencia(b,n:Integer):Integer;
var c,p:Integer;
begin
p:=1;
For c:=1 to n do
p:=p*b;
Potencia:=p;
end;
Function Factorial(n:Integer):Integer;
var c:Integer;f:Longint;
begin
f:=1;
For c:=1 to n do
f:=f*c;
Factorial:=f;
end;
Function Suma(const x,y:Integer):double;
var i:Integer;
begin
Result:=0;
For i:=0 to y do
Result:=Result+ Potencia(x,i) / Factorial(i) ;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
a,b: Integer;
i : Double;
begin
a := StrToIntDef( Edit1.Text, 0 ); b := StrToIntDef( Edit2.Text, 0 ); i := Suma( a, b );
Edit3.Text := FloatToStr( i );
end;