x принадлежит (-1;11] ПАСКАЛЬ нужно через if написатьт программу x принадлежит и x не принадлежит

var
  x : real;
begin
  read (x);
  if (x > -1) and (x <= 11) then write ('принадлежит') else write ('не принадлежит');
end.