Проверить истинность высказывания: «Числа A и B имеют одинаковую четность»

Даны два целых числа: A, B. «Числа A и B имеют одинаковую четность» - это значит либо оба чётные, либо оба нечётные

Program Boolean11;
Var
A,B:Integer;
Begin
ReadLn(A,B);
WriteLn((Odd(A) And Odd(B)) Or (Not Odd(A) And Not Odd(B)));
end.

автор: Sklyarov Sergej a.k.a. S9