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

var a, b: integer;

begin

 Read(a, b);

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

end.