Function region(x,y: real): boolean;
begin if ((x>=0) and (y>=0) and (sqr(x)+sqr(y)<=25)) or<br> ((x<=0) and (abs(y)<=abs(x+5))) then<br> region:=true
else region:=false;
end;
{основная программа}
var x,y: real;
begin
write('x y - через пробел: '); readln(x,y);
if region(x,y) then
writeln('true');
else writeln('false');
end.