test_write.pl

pl0的扩展编译器

const x2=13,d='a';
procedure wr;
begin 
write(weq)
end;
begin
wr;
end.