Дано число х написать на экране входит лиэто число в данный числ промежуток 3

Var
  x: integer;

begin
  write('Введите х: ');
  readln(x);
  if (x > 3) and (x <= 7)
    then
    writeln('Число ', x, ' входит в промежуток чисел (3;7]')
  else writeln('Число ', x, ' не входит в промежуток чисел (3;7]');
end.