Добрый вечер! Пожалуйста, помогите написать программу.
Программу, которая определяет входит ли заданная точка с координатами X и Y в заштрихованную область, описанную уравнениями.

var 
 x,y:real;
begin
 Readln(x,y);
 if (y<4) and (y>1) and (x>0) and (x<1.5) and (y>2*x+1)
  then
   writeln('Точка принадлежит')
  else
   writeln('Точка не принадлежит');
end.