test2.pas

来自「一个pascal编译器,其中编译模块是独立的,可以进行任何slr语法分析,这个编」· PAS 代码 · 共 16 行

program pp;
  var n,p;
procedure p1(s,t);
  var in_proc;
begin
   if s<=1 then t:=1 else
     begin
       call p1(s-1,t);
       t:=s*t
     end
end;
begin
  read(n);
  call p1(n,p);
  write(p)
end.