На языке паскаль! определить принадлежит ли точка a(x) лежащая на координатной прямой отрезку [-3,3].

Program PRIMER;
Uses crt;

var x: real;

Begin clrscr;
      write('Введите координату x = ');
      readln(x);
     
      if (x>=-3) and (x<=3) then
      writeln('Принадлежит')
      else
      writeln('Не принадлежит');

End.