Задача на языке паскаль!
Определить принадлежит ли точка 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.
     

блин почти сошлось с моей версией