Задача вроде простая, но написать не могу

[milash]

Задача вроде простая, но написать не могу

Ввести a,b,c,d,x и написать алгорит вычисления I=1, если точка x принадлежит одновременно отрезкам [a,b] b [c,d], I=пустое множество иначе.
данные для ввода: a,b,c,d,x=
1,2,3,4,2
результат: I= пустое множество.
данные для ввода: a,b,c,d,x=
1,4,2,5,3
результат:
I=1

 

[shrek=)]

Если я верно понял задание и язык программирования Pascal, то листинг такой:

var
a,b,c,d,x:real;
I:string;
begin
writeln ('Веведите значение a b c d x (через пробел)');
readln (a,b,c,d,x);
if (a<x) and (c<x) and (b>x) and (d>x) then I:='1' else I:='пустое множество';
writeln ('Результат - ',I);
readln
end.

 

[milash]

shrek,спасибо большое))