1*44132Sbosticmodule main; 2*44132Sbosticvar 3*44132Sbostic i : integer; 4*44132Sbostic 5*44132Sbosticprocedure p2 (i : integer); 6*44132Sbosticbegin 7*44132Sbostic if i < 5 then 8*44132Sbostic p2(i+1); 9*44132Sbostic end; 10*44132Sbosticend p2; 11*44132Sbostic 12*44132Sbosticprocedure p1 (i : integer); 13*44132Sbosticbegin 14*44132Sbostic p2(i+1); 15*44132Sbosticend p1; 16*44132Sbostic 17*44132Sbosticbegin 18*44132Sbostic i := 0; 19*44132Sbostic p1(i+1); 20*44132Sbosticend main. 21