¿Qué son esos "begin" ahí por el medio?
Código Delphi
[-]
Function Suma(b,n,co,co1:Integer):Integer;
var c,p,i:Integer;
f:Longint;
s:Real;
begin
p:=1;
For c:=1 to n do
p:=p*b;
Suma:=p;
begin <-----------------
f:=1;
For c:=1 to n do
f:=f*c;
Suma:=f;
begin <-----------------
co:=p;
co1:=f;
s:=0;
While i<=n do
begin
s:=s+(co/co1);
co:=c+f;
co1:=co1+p;
i:=i+1;
end;
end;
procedure Form1.BitBtn1Click(Sender: TObject);
var b,n,p,f:Integer
begin
val(Edit1.Text,n);
p:=potencia(b,n);
Edit2.Text:=IntToStr(p);
f:=Factorial(n);
Edit3.Text:=IntToStr(f);
Edit4.Text:=FloatToStr(s);
end;