t_for.mod 91 B

123456
  1. MODULE T;
  2. VAR r : REAL;
  3. i : INTEGER;
  4. BEGIN
  5. FOR r := 1 TO 10 DO i := i + 1 END
  6. END T.