Даны действительные числа a, b. Вывести на экран сообщение "Числа лежат в заданном промежутке", если они принадлежат интервалу (x0, x1] и "Числа вне интервала" в противном случае (приделы интервала x0 и x1 вводятся с клавиатуры)

program zz1;

var a, b, x0, x1:real; / /задаем переменные не целого типа

begin

write ('введите первое действительное число ');

read (a);

write ('введите второе действительное число ');

read (b);

write ('введите начало интервала ');

read (x0);

write ('введите конец интервала ');

read (x1);

If (a > = x0) and (a = x0) and (b < = x1) / / проверяем, если числа принадлежат интервалу, то

Then write (' Числа лежат в заданном промежутке ') / / выводим один ответ

else write (' Числа вне интервала ') / / иначе, выводим другой ответ

END.