Xпринадлежит (-1; 11] паскаль нужно через if написатьт программу x принадлежит и x не принадлежит

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