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

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

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

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