testin.pl0

来自「PLO的此法分析语法分析」· PL0 代码 · 共 17 行

var x;
procedure a;
begin
   x:=x-1;
   if x>0 then
   call a;
end;
begin
   x:=3;
   call a;
end.