Условия нахождения точки А(х,у) в заштрихованной области или на её границах:
или
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var x,y:real;
Write('Введите через пробел координаты точки: ');
Read(x,y);
if (y>=0) and (x<=0) and (y>=0.8*x+4) or (x>=1) and (y<=-1) then<br> Writeln('Точка попадает в область или на её границы')
else
Writeln('Точка не попадает в область или на её границы')
end.
Тестовое решение
Введите через пробел координаты точки: -4.2 2.1
Точка попадает а область или на её границы