Для каждой задачи составить программу, содержащую ветвления и определяющую, принадлежит (X, У) заштрихованной области.

Var X,Y:real; 
Begin 
Write('X = '); 
ReadLn(X); 
Write('Y = '); 
ReadLn(Y); 
if (Y>=0)and(Y<=X+4)and(Y<=4-X) then WriteLn('(',X,',',Y,') попадает в заштрихованную область')<br>else WriteLn('(',X,',',Y,') - мимо') 
End. 

var x,y:real;
begin
  writeln('(x, y)');
  readln(x, y);
  if ((x*x+y*y<=25)and(y>0)and(x>0)) or
  ((abs(x)+abs(y)<=5)and(x<0)) then writeln('Принадлежит')
  else writeln('Не принадлежит');
  readln
end.

var

     x,y:integer;

begin

     read(x,y);

     if (y<=abs(x-3)) and (y>=0) and (sqr(x)+sqr(y)<=36)

         then write ('Да');

             else write ('Нет);

end.

begin

  var (x, y) := ReadReal2('Введите координаты точки:');

  Print((x ** 2 + y ** 2).Between(16, 36) and (y >= 2) ? 'YES' : 'NO')

end.

Var x,y: real; 
Begin 
readln (x,y); 
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)<br> then writeln('YES') 
else writeln('NO') 
End. 

Var x,y: real; 
begin 
write('x = '); readln(x); 
write('y = '); readln(y); 
if (x*y>=0)and(y<=-x+6)and(y>=-x-6) 
  then writeln('Да') 
  else writeln('Нет'); 
end. 

Var x,y: real; 
begin 
  write('x y через пробел: '); readln(x,y); 
  if ((-6<=x) and (x<=1) and (-3<=y) and (y<=7)) and<br>     not ((-3     writeln('точка принадлежит области') 
  else writeln('точка не принадлежит области'); 
end. 

var 
  x, y: real; 

begin 
  writeln('Введите координаты точки x и y соответственно:'); 
  readln(x, y); 
  if (x <= 0) or (y <= 0) then<br>    if x * x + y * y <= 36 then<br>      writeln('Принадлежит') 
    else 
      writeln('Не принадлежит') 
  else 
    writeln('Не принадлежит') 
end. 

Var x,y : real; 
begin 
write('x = '); readln(x); 
write('y = '); readln(y); 
if (y>=2)and(y<=5)and(x>=-2)and(x<=3)or<br>   (y>=2)and(y<=3)and(x>=3)and(x<=5)<br>  then writeln('Да') 
  else writeln('Нет') 
end. 

Var x,y : real; 
begin 
write('x = '); readln(x); 
write('y = '); readln(y); 
if (x*x+y*y<=6*6)and(x>=2) 
  then writeln('Да') 
  else writeln('Нет') 
end. 

Var x,y : real; 
begin 
write('x = '); readln(x); 
write('y = '); readln(y); 
if (x>=0)and((x*x+y*y<=4*4)and(y>=0)or(x*x+y*y<=5*5)and(y<=0))<br>  then writeln('Да') 
  else writeln('Нет') 
end. 

begin 
var x:=readreal ('Введите x-координату точки: '); 
var y:=readreal ('Введите y-координату точки: '); 
if ((x>=-5) and (x<=-2) and (y>=-2) and (y<=5)) or ((x>=-5) and (x<=5) and (y>=-2) and (y<=1)) or ((x>=2) and (x<=5) and (y>=-6) and (y<=1)) then<br>write ('принадлежит') else write ('не принадлежит'); 
end.

Var x, y: real; 
begin 
  read(x, y); 
  if (x >= -4) and (x <= -1) then<br>    if (y >= 1) and (y <= 7) then<br>      writeln('Yes') 
    else 
      writeln('No') 
  else if (x >= -1) and (x <= 3) then<br>    if (y >= 4) and (y <= 7) then<br>      writeln('Yes') 
    else 
      writeln('No') 
  else 
    writeln('No') 
end.

Uses crt; 
var x,y:integer; 
begin 
     readln(x,y); 
     if (y<=7) and (y>=1) and (y<=(2*x+13)) and (y<=(-2*x+15)) then<br>          writeln('yes') 
     else writeln('no'); 
end. 

спс зайка,лублу таких