test1.txt

来自「对pl0语言程序的语法分析源程序」· 文本 代码 · 共 20 行

CONST A:=10; 
  var  B,C;  
      procedure P;   
        var D;
         procedure Q; 
           var X;
           begin
             read(X);
             D:=X;
             while X#0 
             do call P;
           end;
        begin
          write(D);
          call Q;
        end;
        begin
          call P;
        end.