e01.pl0

来自「编译原理源码（包括语法分析」· PL0 代码 · 共 15 行

PROGRAM  EX01;
VAR A,B,C;
BEGIN
  A:=88;
  READ(B);
  C:=A+B;
  IF A<>B THEN
  	BEGIN
  		WRITE(A);
  	END
  ELSE
  	BEGIN
  		WRITE(C);
  	END;
END.