一层一个过程嵌套.txt

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

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