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

Паскаль?

Да

Borland pascal 7.0

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 (alt;=c)and(alt;=d)and(alt;=e)and(clt;=b)and(dlt;=b)and(elt;=b) then
WriteLn('Числа принадлежат данному отрезку')
else
WriteLn('Числа не принадлежат заданному отрезку');
ReadLn
End.