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

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.