Проверить истинность высказывания: «Справедливы неравенства A > 2 и B»

Даны два целых числа: A, B.

Program Boolean4;
Var
A,B:Integer;
Begin
ReadLn(A,B);
WriteLn((A > 2) And (B <= 3));
end.

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