Проверить истинность высказывания: «Каждое из чисел A и B нечетное»

Даны два целых числа: A, B.

Program Boolean8;
Var
A,B:Integer;
Begin
ReadLn(A,B);
WriteLn(Odd(A) And Odd(B));
end.

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