P108 Delphi 递归求阶乘

program Project7;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

var
  n: Integer;

function facn(n: Integer): Integer;
begin
  if n = 0 then
    facn := 1                 //小到一定规模，可以求出结果的边界
  else
    facn := n * facn(n - 1);  //规模变小
end;

begin
  Readln(n);

  Writeln(n, '!=', facn(n));
  Readln;

end.