Срочно подсобите с информатикой! Номер 13!!!

Question

Срочно подсобите с информатикой! Номер 13!!!

---

Answer 1

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

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