p9101.pl0

来自「编译原理课程设计 PL/0语言编译程序 c++builder」· 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.