if_t2.pl0

来自「编译实验的源程序代码 比较简单」· PL0 代码 · 共 23 行

PROGRAM P1;
CONST I=5, B=20; C=1, D=2;
VAR I; X,Y;
PROCEDURE J;
BEGIN
  X:=B
END;
PROCEDURE K;
BEGIN
  Y:=C
END;
BEGIN
  I:=10;
  IF I=10 THEN IF I=101 THEN I:=2 ELSE I:=3 ENDIF  ELSE I:=1 ENDIF;
  WHILE I>0 DO
    BEGIN
      BEGIN
      END;
      WRITE(I);
      I:=I-1
    END
END.