Пример программы на Pascal:

program CheckInterval;
var
number, lowerBound, upperBound: integer;
begin
writeln('Введите число:');
readln(number);
writeln('Введите нижнюю границу интервала:');
readln(lowerBound);
writeln('Введите верхнюю границу интервала:');
readln(upperBound);
if (number >= lowerBound) and (number <= upperBound) then
writeln('Число принадлежит интервалу.')
else
writeln('Число не принадлежит интервалу.');
end.

Эта программа позволяет пользователю ввести число и задать нижнюю и верхнюю границу интервала. Затем она проверяет, принадлежит ли введенное число этому интервалу и выводит соответствующее сообщение.