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

Program prinadlezhnost;
var x: integer;
begin
writeln (введите координату точки х);
readln (x);
if (20 lt;= x) and (40 gt;= x) then
writeln (координата принадлежит отрезку)
else writeln (координата не принадлежит отрезку)
end.

(Программка испытана в PascalABC)