Для решения данной задачи в Turbo Pascal можно использовать следующий код:

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

Пользователь вводит число N и границы интервала a и b. Затем программа проверяет, принадлежит ли число N интервалу (a,b) и выводит соответствующее сообщение.

Пример работы программы:

Введите число N: 5
Введите границу интервала a: 1
Введите границу интервала b: 10
Число 5 принадлежит интервалу (1, 10)