Проверить истинность высказывания: «Числа A и B имеют одинаковую четность» - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

Даны два целых числа: 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.

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