Listing:

    1  MODULE Imports;
    2  FROM InOut IMPORT WriteInt, WriteLn;
    3  IMPORT Strings, MathLib;
    4  VAR x : INTEGER; s : SET OF [0 .. 31];
    5  BEGIN
    6    x := -5 + 10;
    7    x := (10 + 20) * 30 DIV 4 MOD 3;
    8    IF (x IN s) OR (x >= 10) AND (x <= 100) THEN x := 0 END;
    9    s := {1 .. 3, 5, 7 .. 9};
   10    x := 0FFH + 10
   11  END Imports.

    0 errors