10 lines
271 B
Text
10 lines
271 B
Text
module Main;
|
|
var
|
|
x: integer;
|
|
s: set;
|
|
begin
|
|
x := 10;writeln(x:3," is odd?",odd(x));
|
|
s := set(s);writeln(x:3," is odd?",0 in s); (* check right bit *)
|
|
x := 11;writeln(x:3," is odd?",odd(x));
|
|
s := set(x);writeln(x:3," is odd?",0 in s); (* check right bit *)
|
|
end Main.
|