Даны два целых числа а и b. проверьте истинность высказывания "справедливы неравенства а> 2 и b≤3". напишите программу

Program da;
var a,b:integer;
begin
write('Введите а:');
readln(a);
write('Введите b:');
readln(b);
if (a>2) and (b<=3) then
writeln('Правда');
else
write('Ложь')
end.