test5.pl

来自「包含“源代码”“文档”“可执行文件（例子）”三个文件夹」· PL 代码 · 共 25 行

var x,y;
procedure p;
  var a;
  procedure q;
    var b;
    begin
      b:=10;
    end;
  procedure s;
    var c,d;
    procedure r;
      var e,f;
      begin
        call q;
      end;
    begin
      call r;
    end;
  begin
    call s;
  end;
begin
  call p;
end.