1(* 2 * Test of nested procedures and modules. 3 *) 4 5module main; 6var 7 i, k : integer; 8 9procedure p (var i : integer); 10var 11 j, k : integer; 12 13 procedure nestedp (var j : integer); 14 var 15 i : integer; 16 begin 17 i := j + 2; 18 j := i; 19 end nestedp; 20 21begin 22 j := i + 1; 23 nestedp(j); 24 i := j; 25end p; 26 27begin 28 i := 3; 29 p(i); 30end main. 31