function Odd (i: Integer): Boolean;
Odd
checks the parity of its argument i
. It returns
True
if the argument is odd, False
if it is even.
Odd
is defined in ISO 7185 Pascal and supported
by all known Pascal variants.
program OddDemo; var Foo: Integer; begin Write ('Please enter an odd number: '); ReadLn (Foo); if not Odd (Foo) then WriteLn ('Odd''s not even! Something''s odd out there ...') else WriteLn (Foo, ' is pretty odd.') end.