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