Все условия в одном операторе if:

var

x,y :real;

begin

writeln('Введите координаты точки X и Y:');

readln (x,y);

write('Точка <',x,';',y,'> ');

if (x>=0) and (x<=4) and (y>=0) and (y<=2) or

(x*x+y*y<=2*2) and (x<=0) and (y>=0) or

(x>=-2) and (x<=0) and (y>=-4) and (y<=0) or

(x*x+y*y<=3*3) and (x>=0) and (y<=0)

then write('принадлежит выделенной области')

else write('НЕ принадлежит выделенной области');

end.

Условия в нескольких операторах if:

var

x,y :real;

p: integer;

begin

p:=0;

writeln('Введите координаты точки X и Y:');

readln (x,y);

write('Точка <',x,';',y,'> ');

if (x>=0) and (x<=4) and (y>=0) and (y<=2) then p:=1;

if (x*x+y*y<=2*2) and (x<=0) and (y>=0) then p:=1;

if (x>=-2) and (x<=0) and (y>=-4) and (y<=0) then p:=1;

if (x*x+y*y<=3*3) and (x>=0) and (y<=0) then p:=1;

if p=1 then write('принадлежит выделенной области')

else write('НЕ принадлежит выделенной области');

end.