text.txt

来自「实现编译器的词法分析」· 文本 代码 · 共 3 行

var a:string;
begin a:=var a:string;begin a:=;writeln(copy(a,1,22),chr(39),a,chr(39),copy(a,23,59));end.;
writeln(copy(a,1,22),chr(39),a,chr(39),copy(a,23,59));end.