Вычислить факториал используя рекурсию

Function Fact(A : Longint) : Longint;
Begin
  If A>0 then Fact:=A*Fact(A-1) else Fact:=1;
End;

Function Fact(A : Longint) : Longint;
Begin
  If A>0 then Fact:=A*Fact(A-1) else Fact:=1;
End;
 
function SumFact(N : Longint) : Longint;
begin
  if N=1 then SumFact := 1 else SumFact := SumFact(N-1) + Fact(N);
end;

function s(k : longint) : longint;
const f : longint = 0;
begin
  if k = 0 then begin
    result := 0; f := 1;
  end
  else
  begin
    s := s(k - 1);
    f := f * k;
  end;
  result := result + f * ord(k > 0);
end;