(* Chapter 4 - Programming exercise 1 *)
program List_Numbers;

var Index : integer;

begin
   for Index := 1 to 12 do begin
      Write(Index:8);
      if (Index = 10) then
         Write(' October is my birth month.');
      Writeln;
   end;
end.




{ Result of execution

       1
       2
       3
       4
       5
       6
       7
       8
       9
      10 October is my birth month.
      11
      12

}