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

var A, B: integer;
begin
    write('Введите A, B: ');
    read(A, B);
    writeln('Хотя бы одно из чисел A и B нечетное - ', (A mod 2 <> 0) xor (B mod 2 <> 0));
end.