Question

Написать программу, которая по вводимым координатам точки(х,у) определяет, принадлежит ли точка области:

Answer 1

Var  x,y: real;
begin
write('Введите координаты точки х и у:');
readln(x,y);
if abs(y)<=1 then
  if (1<=x) and (x<=5) then
    writeln('Да, принадлежит')
      else writeln('Нет, не принадлежит')
end.