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

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.