Listing: 1 MODULE TFor; 2 VAR r : REAL; x : INTEGER; 3 BEGIN FOR r := 1 TO 5 DO x := x + 1 END ***** ^ FOR needs integer variable and bounds 4 END TFor. 1 error
