Задача в Паскале Проверьте, принадлежит ли интервалу (а,b) число с, где а,b,с- любые числа?

Предыдущий
вопрос Следующий
вопрос

Программа для решения этой задачи на языке Pascal может выглядеть следующим образом:

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

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