test2_1

来自「一、 pl0文法：适用于递归下降分析算法」· 代码 · 共 20 行

const a=10,b=100;
var  c,d,e;
procedure p1;
	procedure p3;
		begin
			call p1;
			write(c);
			call p1;
		end;
	begin
		write(a+b);
		call p3;
		write(a);
	end;
begin 
	read(c,d,e);
	write(a+b*c*(d-e));
	call p1;
	write(a,b,c,d,e);
end.