Автор - aleksandraa00
Ответ:
begin
var (x, y) := ReadInteger2;
var a := (y <= 7) and (y >= 4) and (x >= -4) and (x <= 3);
var b := (y < 4) and (y >= 1) and (x >= -4) and (x <= -1);
Print(a or b);
end.
Объяснение: