freepascal.compiler/docs/refex/ex43.pp

Program Example43;

{ Program to demonstrate the Odd function. }

begin
  If Odd(1) Then 
    Writeln ('Everything OK with 1 !');
  If Not Odd(2) Then 
    Writeln ('Everything OK with 2 !'); 
end.