[Burk]

Код:

function factorial(n:integer):integer ;
 begin
 if n>1 then
 factorial:=n*factorial(n-1) ;
 if (n>(-1)) and (n<2) then
 factorial:=1 ;
 end;
function stepen(x:real;y:integer):real ;
 begin
stepen:=exp(y*ln(x)) ;
 end ;
procedure TForm1.Button1Click(Sender: TObject);
var x,t,r : real ;
    s,n : integer ;
begin
n:=strtoint (Edit1.Text) ;
x:=strtofloat (Edit2.Text) ;
s:= (-1) ;
r:= 0 ;
while s<10 do
begin
s:=s+1 ;
t:=(1/(factorial(s)*factorial(n+s)))*stepen((x/2),(2*s+n))  ;
r:=r+t ;
end;
Edit3.Text:= floattostr(r) ;

end;

end.

а вот и ответ)) сам разобрался во всем) тему в клозед))