var a: integer;
begin
write('Введите число: ');
readln(a);
if (a>3) and (a<8) then
writeln('Число принадлежит интервалу (3,8)')
else
writeln('Число не принадлежит интервалу (3,8)')
end.
var a: integer;
begin
write('Введите число: ');
readln(a);
if (a>3) and (a<8) then
writeln('Число принадлежит интервалу (3,8)')
else
writeln('Число не принадлежит интервалу (3,8)')
end.