Var x, y : real; begin write(x = ); readln(x); write(y = ); readln(y); if ((y gt;= -3) and (x lt;= -4)) or ((y gt;= -3) and (x lt;= 5)) or ((x lt;= 2) and (y lt;= 4)) or ((x gt;= -2) and (y lt;= 4)) then write(True!) else write(False!); end;