Решите плиз до завтра очень надопрограмму для Pascal

var x,y: real; begin read(x,y); write('Область 4: '); if (y >= 1 - x) and (y >= 0) and (y <= sin(x)) and (x <= 4*arctan(1))   then writeln('принадлежит')   else writeln('не принадлежит'); write('Область 5: '); if (y >= sqr(x) - 2) and (y <= abs(x))   then writeln('принадлежит')   else writeln('не принадлежит'); end.