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

Var a, b, x0, x1:integer;

begin

writeln ('Введите числа a и b соотвественно') ;

read (a, b) ;

writeln ('Введите координаты x0 и x1') ;

read (x0, x1) ;

if (a>x0) and (ax0) and (b<=x1)

then writeln ('Числа лежат в заданном интервале') else

writeln ('Числа не лежат в заданном интервале') ;

end.