声明的作用域「词法作用域 动态作用域 B: (1) program dynamic(i, 0); (2)var r: real (3)procedure show; (4) begin write(r: 5: 3 ) end; (5)procedrue small; (6 var r: real; begin r:=0.125; show end; eg (9)r:=0.25; (10) show; small; write/n; (1) show; small; write/n; (2)end.声明的作用域 词法作用域 动态作用域 例：（1）program dynamic(i,0); (2) var r:real (3) procedure show; (4) begin write(r:5:3) end; (5) procedrue small; (6) var r:real; (7) begin r:=0.125; show end; (8) begin (9) r:=0.25; (10) show; small; write/n; (11) show; small; write/n; (12) end