// a به توان b
function Pow(a,b: Integer):Real;
begin
if b=0 then Pow := 1 else
Pow := a*Pow(a,b-1);
end;
// فاكتوريل
function Fact(n: Integer):Real;
begin
if n-1=1 then Fact := n else
Fact := n*Fact(n-1);
end;
// a ضربدر b
function Mul(a,b: Integer):Real;
begin
if b=1 then Mul := a else
Mul := a+Mul(a,b-1);
end;