test_write.pl

来自「pl0的扩展编译器」· PL 代码 · 共 10 行

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