function isOdd(Number: integer): boolean
begin
  isOdd := boolean(Number mod 2)
end;