testelse.pl0

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

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