e0101.pl0

PL0功能的扩充编译原理课程设计：扩充赋值运算：+= 和-=

PROGRAM EX01;
VAR E:ARRAY[1..2] OF INT;
    A:INT;
BEGIN
  E[2]:=1;
  A:=E[2]+88;
  WRITE(A);
END.