Даны два числа A и B. Выведите ** экран значение логического выражения , которое...

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(ax)and(bend.