program n2; procedure Outer; procedure Inner; begin writeln('inner') end; begin Inner; writeln('outer') end; begin Outer; writeln('done') end.
