1*715873abSbosticmodule main; 2*715873abSbosticvar 3*715873abSbostic i : integer; 4*715873abSbostic 5*715873abSbosticprocedure p2 (i : integer); 6*715873abSbosticbegin 7*715873abSbostic if i < 5 then 8*715873abSbostic p2(i+1); 9*715873abSbostic end; 10*715873abSbosticend p2; 11*715873abSbostic 12*715873abSbosticprocedure p1 (i : integer); 13*715873abSbosticbegin 14*715873abSbostic p2(i+1); 15*715873abSbosticend p1; 16*715873abSbostic 17*715873abSbosticbegin 18*715873abSbostic i := 0; 19*715873abSbostic p1(i+1); 20*715873abSbosticend main. 21