e012.pl0

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

PROGRAM EX01;
  VAR A,B;
      C:CHAR;
      D:INT;
      E:REAL;
      F:ARRAY[1..2] OF INT ;
BEGIN
 F[2]:=2;
 D:=F[2]+2;
 A:='a';
 B:='b';
 WRITE(A);
WRITE(B);
 WRITE(D);
END.