errorf3.imp

( errorf3.imp - modyfikacja iteratora w petli )
VAR
	c
BEGIN
	c := 0;
	FOR i FROM 1 TO 100 DO
		c := c + i;
		i := i % 2;
	ENDFOR

	WRITE c;
	
END