С! с клавиатуры вводится координата точки х, программа выводит ответ принадлежит ли точка отрезку от 20 до 40

Var x:integer;
begin
writeln('Введите координату точки X');
read(x);
if (x>20) and (x<40) then writeln('Да принадлежит') else writeln('Нет, не принадлежит');
end.