Question

Составить программу по которой выведется значение True, если точка
с координатами (x, y) лежит внутри заштрихованной области; и False – в противном случае 

Answer 1

program Program1;
var x, y, result: real;
h: boolean;
begin
     h := false;
     writeln(Введите значения X и Y: ');
     readln(x, y);
     if y <= 0 then writeln(h);
     result := abs(x) + abs(y);
     if result < 4 then h := true
                    else h := false;
     writeln(h);
end.