Паскаль. написать программу разветвляющегося алгоритма решения ниже данной на языке 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.