Определить, попадает ли заданное число Х в интервал от -2 до 12. Написать на Паскале.

Попадание числа X в интервал [-2,12] проверяется с помощью двух условий. Сравнение с -2 и сравнение с 12.

program ex47;
uses crt;
var
x: real;
begin
clrscr;
write('введите число х=');
readln(x);
if x>= -2 then {проверяем 1-е условие}
if x<= 12 then {проверяем 2-е условие }
writeln('попадает в интервал -2...12')
else
writeln('x>12')
else
writeln('x<2');
readln;
end.