一层一个过程嵌套.txt

一个pascal子集编译器。输入pascal原程序

program mini;
const a=10;
var b;
	procedure fun(c);
	var f;
	begin
	write(b,f)
	end
begin
call fun(b+1)
end.