Объяснение:
var x:real;
begin
write('x=');
readln(x);
if (x>1)and(x<10) then write('принадлежит')
else write('не принадлежит');
readln
end.
