Условия нахождения точки А(х,у) в заштрихованной области или на её границах:

или

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016begin 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 Writeln('Точка попадает в область или на её границы') else Writeln('Точка не попадает в область или на её границы')end.
Тестовое решениеВведите через пробел координаты точки: -4.2 2.1Точка попадает а область или на её границы