(* This is dumb, but it does test elementary control structures *)

   program Controls;
   
   const Lo = 1;
   
   var  i, j ,  k, l: number;
     
     begin
       (* try the for loop *)
       k := lo; j := 10;
       for I := k-j to 15 do
	   if (i/2 *2) = i then i := i+1
           ;
       
       (* try while do *)
       i := k - j;
       while i<15 do begin
	 if (i/2 * 2) <> i then (* do nothing *) 
	 else j := j+1;
	 while i<=j do i := i+1;
       end ;
  
       for i := 100  downto 15 do
	 begin
	   if i < 15 then
	   else ;
	   ;
	   ;
	 end;

       i := 1;
       while i<=10 do
           i := i+1;

end.  (* end control test *)