(* ********************************** *)
(* Simple Loop Test Program           *)
(*                                    *)
(* Author: Matthew William Coan       *)
(* Date: Sat Apr 23 02:08:42 EST 2011 *)
(* ********************************** *)
Program LoopTest;
Var
   i:Integer;
begin
   WriteLn('--REPEAT LOOP--');
   i := 0;
   repeat
      WriteLn('Hello, World!');
      i := i + 1;
   until i >= 10;

   WriteLn('--FOR LOOP--');
   for i := 0 to 10 do
   begin
      WriteLn('Hello, World!');
   end;

   WriteLn('--FOR LOOP REVERSE--');
   for i := 10 downto 0 do
   begin
      WriteLn('Hello, World!');
   end;

   WriteLn('--WHILE LOOP--');
   i := 0;
   while i < 10 do
   begin
      WriteLn('Hello, World!');
      i := i + 1;
   end;
end.