(* Chapter 4 - Programming exercise 2 *)
program List_Most;

var Index : integer;

begin
   for Index := 1 to 12 do begin
      if (Index <> 2) and (Index <> 9) then
         WriteLn('The value of the index is',Index:3);
   end;
end.




{ Result of execution

The value of the index is  1
The value of the index is  3
The value of the index is  4
The value of the index is  5
The value of the index is  6
The value of the index is  7
The value of the index is  8
The value of the index is 10
The value of the index is 11
The value of the index is 12

}