1module main; 2var 3 i : integer; 4 5procedure p2 (i : integer); 6begin 7 if i < 5 then 8 p2(i+1); 9 end; 10end p2; 11 12procedure p1 (i : integer); 13begin 14 p2(i+1); 15end p1; 16 17begin 18 i := 0; 19 p1(i+1); 20end main. 21