test.pls

PL语言到中间代码的编译程序

program pp;
  var n,p:integer
  procedure p1(n:integer;var p:integer);
     var in_proc:char
     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,p);
       call write(p)
     end.