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

Program n_1;

var x,y:real;

begin

   read(x, y);

   if (xgt;=-1) and (xlt;=1) and (ygt;=0) and (ylt;=1) then  write('Yes')

   else write('No');

end.

var

 x, y: Real;

begin

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

 ReadLn (x, y);

 if (x gt;= -1) and (x lt;= 1) and (y gt;= 0) and (y lt;= 1) then

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

 else

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

 ReadLn;

end.