Проверить истинное высказывание "ровно одно из чисел A и B нечётное". Программа в Pascal

Question

Проверить истинное высказывание "ровно одно из чисел A и B нечётное". Программа в Pascal

Answer 1

var a, b: integer;

begin

 Read(a, b);

 Write(Odd(a) xor Odd(b))

end.