(* Chapter 4 - Program 3 *)
program Loops_And_Ifs;

var Count,Index : integer;

begin (* Main program *)
   for Count := 1 to 10 do begin (* Main loop *)
      if Count < 6 then
         Writeln('The loop counter is up to ',Count:4);
      if Count = 8 then begin
         for Index := 8 to 12 do begin (* Internal loop *)
            Write('The internal loop index is ',Index:4);
            Write(' and the main count is ',Count:4);
            Writeln;
         end; (* Internal loop *)
      end; (* if Count = 8 condition *)
   end; (* Main loop *)
end.  (* Main program *)




{ Result of execution

The loop counter is up to    1
The loop counter is up to    2
The loop counter is up to    3
The loop counter is up to    4
The loop counter is up to    5
The internal loop index is    8 and the main count is    8
The internal loop index is    9 and the main count is    8
The internal loop index is   10 and the main count is    8
The internal loop index is   11 and the main count is    8
The internal loop index is   12 and the main count is    8

}