даны действительные числа 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 (a<=x1) and (b>x0) and (b<=x1) then writeln('Числа лежат в заданном интервале') else writeln('Числа не лежат в заданном интервале'); end.