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

program logik;
var A, B: integer;
begin
    write('Введите A и B: ');
    read(A, B);
    writeln('Справедливы неравенства A > 2 и B ≤ 3 - ',(A > 2) and (B <= 3));
end.