一层每层多个过程嵌套和调用.txt

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

program mini;
var a;
	procedure fun;
	var b;
	begin
	read(a,b)
	end 
	procedure fun2;
	var c;
	begin
	read(a,c)
	end
begin
read(a);
call fun2;
call fun
end.