должны выполняться следующие условия
y>-x+1
y>x-1
(x-1)^2+y^2<1</p>
var
x,y:real;
begin
for i:=1 to 5 do
begin
x:=random*4-2;
y:=random*4-2;
if (y>-x+1) and (y>x-1) and (((x-1)*(x-1)+y*y)<1) then</p>
writeln('x=',x:8:2,' y=',y:8:2,' принадлежит')
else
writeln('x=',x:8:2,' y=',y:8:2,' не принадлежит')
end;
end.