Определить, попадает ли точка в область - Pascal

Формулировка задачи:

Написать программу, определяющую, попадает ли точка в область. Как описать верхнюю серую область? И чтобы белая в районе -1, 1.5 не попадала. Помогите, пожалуйста! Вот начало

var                                                                           
   x,y:real;                                                                  
begin                                                                         
     readln(x);                                                               
     readln(y);                                                               
if                                                                            
  (sqr(x)<y) and (y<2) or (sqr(x+2)<y) and (y<2)

Решение задачи: «Определить, попадает ли точка в область»

Листинг программы

if((y>=sqr(x+2))and(y<=x*x)and(y<=2))
or((y>=x*x)and(y<=sqr(x+2))and(y<=2))
or((y>=x*x)and(y>=sqr(x+2))and(y>=2))
then write('принадлежит') else write('не принадлежит')

Объяснение кода листинга программы

Входные данные: x, y
Вычисление значения выражения (y>=sqr(x+2)) and (y<=x*x) and (y<=2)
Вычисление значения выражения (y>=x*x) and (y<=sqr(x+2)) and (y<=2)
Вычисление значения выражения (y>=x*x) and (y>=sqr(x+2)) and (y>=2)
Результат проверки всех трех выражений
Вывод соответствующего сообщения