t_bad_for.mod 90 B

1234
  1. MODULE TFor;
  2. VAR r : REAL; x : INTEGER;
  3. BEGIN FOR r := 1 TO 5 DO x := x + 1 END
  4. END TFor.