mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-02 00:53:40 +02:00
11 lines
198 B
ObjectPascal
11 lines
198 B
ObjectPascal
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.
|