example2.txt

来自「PL/0语言编译器」· 文本 代码 · 共 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.