标签: language-agnostic scope dynamic-scope
我有这个程序:
var a, b:integer procedure sub () var a,b:real; begin … end procedure sub1() var c:integer begin …a…b… end begin … end