MODULE m;

VAR i: INTEGER;
	b1: BOOLEAN;
	i1: INTEGER;

BEGIN    
	FOR i := 0 TO 10 DO 
		i1 := i1 + 1 
	END;
	
	FOR i := 0 TO 10 BY 5 DO
		b1 := TRUE
	END;

	FOR i := 15 TO 0 BY -3 DO
		FOR i1 := 1 TO 3 BY -1 DO
			b1 := TRUE
		END;
		i1 := -2
	END
END m.