两层每层一个过程嵌套.txt

来自「一个pascal子集编译器。输入pascal原程序」· 文本 代码 · 共 17 行

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