test.pl0

来自「很详细的PL0编译演示程序,学习编译的极品!」· PL0 代码 · 共 29 行

var a,b;
procedure x;
  var d,k;
  procedure y;
    var f,g;
     begin
       while 
         a#0 do
           begin
             f:=a;
             a:=a-1;
           end;
     end;
  procedure z;
    var h,i;
    begin
      call y;
    end;
  begin
    call z;
  end;
begin
  read(a);
  call x;
  write(a)
end.