лабы / лаб2 / lab2_2

program lab2_2;
var
x,y: Real;
result: Boolean = False;

begin
Write('Введите x: '); Read(x);

y := 2 - x;

if (abs(x) > 1) and (abs(y) < 4) and (abs(y) > 2-abs(x)) then result := True;

WriteLn('Результаты:');
WriteLn('x: ', x:1:2);
WriteLn('y: ', y:1:2);
WriteLn('Принадлежит ли точка выделеной области? ', result);
end.