a1.pls

来自「编译原理的教程和一个实习的例子程序」· PLS 代码 · 共 20 行

program pp;
var n,p:integer;
procedure p1(n:integer; var p:integer);
begin
  if n<=1 then p:=1
          else begin
                  call p1(n-1,p);
                  p:=n*p
               end

end;

begin
  call read(n);
  call p1(n+2,p);
  call write(p)

end.