Помогите с задачей ** Паскале

Question

Помогите с задачей на Паскале

---

---

Answer 1

Var x,y:real;
begin
readln(x,y);
if (y<2) and (y>0) and (x>0) and (y>sin(x)/cos(x)) then writeln('Принадлежит')
else writeln('Не принадлежит')
end.

Comments

это к 17 варианту?

---

да