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