Составьте программу, которая определяет принадлежность точки к интервалу (-1, 6).​

program dsa;

var

 x : integer;

 begin

   writeln('Введите координату точки:');

   readln(x);

   if (x >-1) and (x<6) then

     write('Точка принадлежит')

   else

     write('Точка не принадлежит')

 end.