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

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