Задание. Написать программу, проверяющую принадлежит ли число, введенное с клавиатуры, интервалу (3; 8)
Задание ДОЛЖНО быть написано на языке Pascal.

var a: integer;

begin

write('Введите число: ');

readln(a);

if (a>3) and (a<8) then  

writeln('Число принадлежит интервалу (3,8)')

else  

writeln('Число не принадлежит интервалу (3,8)')

end.