testin.pl0

PLO的此法分析语法分析

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