t_cond.mod 68 B

12345
  1. MODULE T;
  2. VAR i : INTEGER;
  3. BEGIN
  4. WHILE i DO i := i + 1 END
  5. END T.