Если границы не входят, то процедура будет выглядеть примерно так:
procedure proc (real: x,y);
begin
if (x < 1) and (x > 0) then
if y > -1 and y < 0 then
writeln('true');
else writeln('false');
else if sqrt(x*x + y*y) < 1 then
if (x < 0) and (x > -1) then
if (y > 0) and (y < -1) then
writeln('true');
else writeln('false');
else writeln('false');
else writeln('false');
end;
Объяснение:
буду рада если это ,давно этим занималась,думаю не очень ошибок много
