testchar .pl0

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

PROGRAM TEST;
	CHAR A;
	BEGIN
		A:='W';
		WRITE(A); 
	END.