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.