program dsa;
var
x : integer;
begin
writeln('Введите координату точки:');
readln(x);
if (x >-1) and (x<6) then
write('Точка принадлежит')
else
write('Точка не принадлежит')
end.
program dsa;
var
x : integer;
begin
writeln('Введите координату точки:');
readln(x);
if (x >-1) and (x<6) then
write('Точка принадлежит')
else
write('Точка не принадлежит')
end.