t2.pl0

PL0文法编译器

var a;

procedure a1;
 procedure a2;
 begin end;

begin call a2; end;

procedure b;
begin end;

procedure c;
begin call b end;

begin call a1; call b; call c end.