Проверить интервал вводимый - Free Pascal

Формулировка задачи:

Не поможете ли пожалуйста новичку Не могу написать программу : 1. Напишите программу , которая проверяет , пользователь ввёл ли число , которое принадлежит интервалу [12;25) 2. Напишите программу ,которая проверяет , пользователь ввёл ли число ,которые принадлежит интервалу 3< a < 112 Спасибо большое за понимание

Решение задачи: «Проверить интервал вводимый»

Листинг программы

var x:integer;
begin
Readln(x);
if (x<=112) and (x>=3) then
Writeln('Принадлежит') else
Writeln('Не принаделжит');
Readln;
end.

Объяснение кода листинга программы

Объявлена переменная x типа integer.
Происходит чтение значения переменной x с помощью функции Readln.
С помощью условного оператора if проверяется, принадлежит ли значение переменной x заданному интервалу (от 3 до 112 включительно).
Если условие истинно, то выводится сообщение Принадлежит, иначе выводится сообщение Не принаделжит.
Программа ожидает ввода с помощью функции Readln.