Помогите, пожалуйста, буду очень благодарна

Question

Помогите, пожалуйста, буду очень благодарна

---

---

Answer 1

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*y>0)and(y<=-x+6)and(y>=-x-6)
  then writeln('Да')
  else writeln('Нет')
end.

Пример:
x = 2
y = 2
Да