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

var
    A, B: integer;
    C: boolean;
begin
    write('Введите A, B: ');
    read(A, B);
    C := ((A mod 2 <> 0) and (B mod 2 <> 0)) or ((A mod 2 = 0) and (B mod 2 = 0));
    writeln('Числа A и B имеют одинаковую четность - ', C);
end.