Вот: Разработайте алгоритм и напишите программу которая определяет, принадлежность точки с координатами х и у заштрихованной части плоскости

Напишите,пожалуйста в паскале

Заранее большое спасибо!

var

 x, y: Real;

begin

 WriteLn ('Введите координаты точки x, y: ');

 ReadLn (x, y);

 if (x >= -1) and (x <= 1) and (y >= 0) and (y <= 1) then

   WriteLn ('Точка принадлежит заштрихованной области')

 else

   WriteLn ('Точка не принадлежит заштрихованной области');

 ReadLn;

end.

Program n_1;

var x,y:real;

begin

   read(x, y);

   if (x>=-1) and (x<=1) and (y>=0) and (y<=1) then  write('Yes')

   else write('No');

end.