var num,num1,num2:integer;
begin
Write('Введите число:');
ReadLn(num);
Write('Введите a:');
ReadLn(num1);
Write('Введите b:');
ReadLn(num2);
if((num>=num1)and(num
WriteLn('Число входит в данный отрезок')
else
WriteLn('Число не входит в данный отрезок');
end.