Язык:
Русский
English
{Odd.PAS}
{ Пример программы для функции Odd }
uses Crt;
begin
if Odd(5) then
WriteLn('Число 5 - нечётное')
else
WriteLn('Число 5 - чётное!?');
end.
begin
if Odd(5) then
WriteLn('Число 5 - нечётное')
else
WriteLn('Число 5 - чётное!?');
end.