var num,num1,num2:integer;

begin

Write('Введите число:');

ReadLn(num);

Write('Введите a:');

ReadLn(num1);

Write('Введите b:');

ReadLn(num2);

if((num>=num1)and(num<=num2)) then

   WriteLn('Число входит в данный отрезок')

 else

   WriteLn('Число не входит в данный отрезок');

end.