Помогите решить. PascalABC.Даны два целых числа: A, B. Проверить истинность выражения:

Это сделает логическое выражение
(a mod 2)+(b mod 2) = 1
ОБЪЯСНЕНИЕ:
Оператор mod отдаёт остаток от целочисленного разделенья операндов.
a mod 2 будет одинаково нулю, если a четное или единице, если а нечетное. То же правильно и для b mod 2. Осмотрим поведение суммы (a mod 2)+(b mod 2) при разных композициях a и b
1. Оба нечетных. Сумма одинакова 1+1, т.е. 2
2. Одно четное, иное нечетное. Сумма равна 1+ 0 (либо 0+1), т.е. 1
3. Оба четных. Сумма равна 0+0, т.е. 0.
Как следует, сумма одинакова единице тогда и только тогда, когда одно из чисел четное, а иное нечетное.
Оставшаяся часть выражения превращает его в логическое, проверяя условие 1=1.
Предлагаемое логическое выражение может быть применено как в качестве правой доли оператора присваивания, так и в качестве логичесвого выражения в операторах if-then-else или циклов while, repeat.