21 lines
427 B
Text
21 lines
427 B
Text
MODULE EvenOrOdd;
|
|
IMPORT
|
|
S := SYSTEM,
|
|
Out;
|
|
VAR
|
|
x: INTEGER;
|
|
s: SET;
|
|
|
|
BEGIN
|
|
x := 10;Out.Int(x,0);
|
|
IF ODD(x) THEN Out.String(" odd") ELSE Out.String(" even") END;
|
|
Out.Ln;
|
|
|
|
x := 11;s := S.VAL(SET,LONG(x));Out.Int(x,0);
|
|
IF 0 IN s THEN Out.String(" odd") ELSE Out.String(" even") END;
|
|
Out.Ln;
|
|
|
|
x := 12;Out.Int(x,0);
|
|
IF x MOD 2 # 0 THEN Out.String(" odd") ELSE Out.String(" even") END;
|
|
Out.Ln
|
|
END EvenOrOdd.
|