Определить принадлежит ли введены три числа отрезку задаваемому с клавиатуры

Var a,b,c,d,e:real; Begin WriteLn('Отрезок [a,b]'); Write('a = ');ReadLn(a); Write('b = ');ReadLn(b); WriteLn('Введите три числа'); ReadLn(c,d,e); if (a<=c)and(a<=d)and(a<=e)and(c<=b)and(d<=b)and(e<=b) then WriteLn('Числа принадлежат заданному отрезку') else WriteLn('Числа не принадлежат заданному отрезку'); ReadLn End.