t2.pl0

来自「课程题目：对PL/0编译器作以下修改扩充」· PL0 代码 · 共 22 行

CONST I=5, B=20; C=1, D=2;
VAR I,J; X,Y;
PROCEDURE J;
BEGIN
  J:=I
END;
PROCEDURE K;
BEGIN
  J:=I
END;
BEGIN
  WRITE(I);
  I:=1;
  WHILE I<10 DO
    BEGIN
      BEGIN
      END;
      WRITE(I);
      I:=I+1
    END
END.