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

program da;var a,b:integer;beginwrite('Введите а:');readln(a);write('Введите b:');readln(b);if (a>2) and (b<=3) thenwriteln('Правда');elsewrite('Ложь')end.