Дано целое число A. Проверить истинность высказывания: «Число A является нечетным»

Program Boolean2;
Var
A:Integer;
Begin
ReadLn(A);
WriteLn(Odd(A));
end.

автор: Sklyarov Sergej a.k.a. S9