Question

Даны два числа A и B. Выведите на экран значение логического выражения , которое принимает значение true , если оба числа находятся в интервале (X ,Y) , и false - в противном случае

Answer 1

var a,b,x,y:integer;
begin
writeln('Введите границы интервала [x,y]');
readln(x,y);
writeln('Введите два числа a и b');
readln(a,b);
writeln((a>x)and(a<y)and(b>x)and(b<y));
end.