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

Program prinadlezhnost;var x: integer;beginwriteln (\'введите координату точки х\');readln (x);if (20 <= x) and (40 >= x) thenwriteln (\'координата принадлежит отрезку\')else writeln (\'координата не принадлежит отрезку\')end.(Программа проверена в PascalABC)