Protótipo: function odd(x: longint): boolean;
Descrição: Retorna true se x for ímpar, false caso o contrário.
Exemplo:
program ExemploOdd; begin if odd(1) then writeln('Tudo certo com o 1!'); if not(odd(2)) then Writeln ('Tudo certo com o 2!'); end.