FreeOberon/Programs/Examples/SetTest.Mod

MODULE SetTest;
IMPORT In, Out, SYSTEM;

PROCEDURE BITS(n: INTEGER): SET;
RETURN SYSTEM.VAL(SET, n) END BITS;

PROCEDURE Do;
VAR n: INTEGER;
  s, q: SET;
BEGIN
  Out.String('Введите число: '); In.Int(n);
  s := BITS(n);
  q := BITS(n - 1);
  IF s - (s - q) = {} THEN
    Out.String('Степень двойки.')
  ELSE
    Out.String('Не степень двойки.')
  END;
  Out.Ln
END Do;

BEGIN
  Do
END SetTest.