RosettaCodeData/Task/Even-or-odd/Pascal/even-or-odd-2.pascal

function isOdd(Number: integer): boolean
begin
  isOdd := boolean(Number and 1)
end;