program t101_recursion;

{ t101 -- direct self-recursion.  The function's result variable shadows its
  own name inside the body; a following '(' must resolve to the function
  symbol, not the result slot. }

function fact (N : integer) : integer;
begin
  if N <= 1 then
    fact := 1
  else
    fact := N * fact (N - 1)
end;

begin
  writeln (fact (5))
end.