Паскаль. Написать программу разветвляющегося алгоритма решения ниже данной

задачи на языке Pascal

Задача:

Даны два целых числа: A, B. Проверить истинность высказывания:

«Справедливы неравенства A > 1 и B < – 3».

Program programm;

var A,B: integer;

begin

 writeln('Введите число A: ');

 readln(A);

 writeln('Введите число B: ');

 readln(B);

 if (A > 1) and (B < -3) then

   writeln('Неравенство ВЫПОЛНЕНО!')

 else

   writeln('Неравенствено НЕ выполненно!');

end.