p9101.pl0

来自「编译原理的PL0源码（C++build版的）」· PL0 代码 · 共 18 行

PROGRAM MAIN;
CONST A=10;
VAR B,C;
PROCEDURE P;
BEGIN END;
PROCEDURE S;
BEGIN END;
BEGIN
  B:=8;
  READ(C);
  WHILE C>0 DO
    BEGIN
      WRITE(B);
      CALL S;
    END;
  CALL P;
END.