Даны действительные числа 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.