написать программу на паскале .

Если границы не входят, то процедура будет выглядеть примерно так:

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;

Объяснение:

буду рада если это ,давно этим занималась,думаю не очень ошибок много