test0.pl

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

const a=2;
var sub,add:integer;s,a:real;
function mod (i,h:integer;g:char):real;
           begin
	read(add,sub)  
           end.