(* what about missing keywords? *)

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

       i = 1;

end.  (* end control test *)