(* 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 := j-k to 15 do
	   if (i/2 *2) = i then 
           ;
       
       (* try the repeat-until *)
       i := j-k;
       while j<15 do begin
	 if j>j then (* do nothing *) 
	 else j := j+1;
       end ;
       while i<=j do i := i+1;
  
       for i := 18  downto 15 do
	 begin
	   if i < 15 then
	   else ;
	   ;
	   ;
	 end;

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

end.  (* end control test *)