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

Program Boolean10;

Var
  A, B: Integer;

Begin
  ReadLn(A, B);
  WriteLn(Odd(A) Xor Odd(B));

end.