Напишите программу на языке паскаль: выяснить принадлежит ли точкаx отрезку от 1 до 10? буду )

Var x:integer;
begin
readln(x);
if (x>1) and (x<10) then
writeln("Yes") else
writeln("No");
end.