Question

определить попадает ли точка с заданными координатами в область I Для простоты принять что точка не попадает на границу этой области

Answer 1

Условия попадания в область:
$a) (x>3) land (y>2) \ b) (x<-2) land (y<-4)$

var
  x,y:real;
 
begin
  Write('Введите координаты точки (x,y): ');
  Readln(x,y);
  if (x>3) and (y>2) then Writeln('Точка попадает в область')
  else Writeln('Точка не попадает в область')
end.

{
  Для второго условия в if надо записать
  (x<-2) and (y<-4)
}