Node:Odd, Next:of, Previous:object, Up:Reference
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.