t2.pl0

来自「PL/0语言是Pascal语言的一个子集」· PL0 代码 · 共 23 行

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