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

Var a,b,c,d,e:real;BeginWriteLn('Отрезок [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) thenWriteLn('Числа принадлежат заданному отрезку')elseWriteLn('Числа не принадлежат заданному отрезку');ReadLnEnd.