1.pl

这是我们的一个上机题,做词法分析和语法的,希望对大家的学习有所帮助

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.