podría ser este el código que busco??? con respecto a lo de visibilidad y alcance no logro hacerlo.
Código Delphi
[-]procedure factorial(n:integer;var res:integer);
var
i,a:integer;
begin
if n<=1 then
res:=1
else
begin
a:=1;
for i:=1 to n do
a:=a*(i);
res:=a;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a,res:integer;
begin
a:=StrToInt(edit1.Text);
factorial(a,res);
showmessage(IntToStr(res));
end;