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

program logik;
var A, B: integer;
begin
    write('Введите A, B: ');
    read(A, B);
    writeln('Каждое из чисел A и B нечетное - ', (A mod 2 <> 0) and (B mod 2 <> 0));
end.