Написать программу проверяющую принадлежит ли число введенное с клавиатуры, интервалу (-5,20)

Program 1;

var a: integer;

witeln ('Введите любое число');

readln (a);

if a < - 5 then

writeln ('Введенное число с клавиатуры не принадлежит заданному интервалу');

else

if a > 20 then

writeln ('Введенное число с клавиатуры не принадлежит заданному интервалу');

else

writeln ('Введенное число с клавиатуры принадлежит заданному интервалу');

end.

Проверим правильность работы пройдясь по коду:

1) Введем число 30.

Тогда сравниваем:

30 < - 5 - неверно;

30 > 20 - верно.

Значит на экране появится надпись: Введенное число с клавиатуры не принадлежит заданному интервалу.

2) Введем число 1.

Тогда сравниваем:

1 < - 5 - неверно;

1 > 20 - неверно.

Значит на экране появится надпись: Введенное число с клавиатуры принадлежит заданному интервалу.