subs.pl0

来自「这个是我的编译原理的课程设计」· PL0 代码 · 共 10 行

PROGRAM SUBS;
VAR A,B;
BEGIN
   A:=10;
   A--;
   B:=A;
   B--;
   WRITE(B)
END.