program nl; procedure Outer; var X:integer; procedure Inner; begin writeln(X) end; begin X:=42; Inner end; begin Outer end.
