(* Chapter 5 - Program 7 *)
program Try_Recursion;

var Count : integer;

procedure Print_And_Decrement(Index : integer);
begin
   Writeln('The value of the index is ',Index:3);
   Index := Index - 1;
   if Index > 0 then
      Print_And_Decrement(Index);
end;

begin  (* main program *)
   Count := 7;
   Print_And_Decrement(Count);
end.  (* main program *)




{ Result of execution

The value of the index is   7
The value of the index is   6
The value of the index is   5
The value of the index is   4
The value of the index is   3
The value of the index is   2
The value of the index is   1

}