ПОМОГИТЕ С ГРАФИКОЙ В ПАСКАЛЕ, ПОЖАЛУЙСТА
Нарисуйте 10 окружностей разного цвета, пересекающихся в 2-х точках. Цвет областей пересечения должен отличаться от цветов окружностей, которые эту область образуют.
ПРИМЕРНО КАК НА РИСУНКЕ

вопрос *

не касающийся этой задачи

Assign(file2, 'intfile2'); Rewrite(file2); var i := file1.FileSize; while i > 0 do begin var temp: integer; file1.Seek(i - 1); Read(file1, temp); Write(file2, temp); i -= 1; end; file1.Close;

I-=1 что это?

Нельзя писать в комментариях что-либо, относящееся к другой задаче - это считается спамом!

// PascalABC.NET 3.0, сборка 1128uses  GraphABC;var  i:integer;begin  for i:=1 to 10 do begin    Pen.Color:=RGB(random(255),random(255),random(255));    Brush.Style:=bsClear;    Brush.Color:=Pen.Color;    Circle(25+i*50,100,40);    if i>1 then begin      Brush.Style:=bsSolid;      FloodFill(50*i,100,RGB(random(255),random(255),random(255)))      end;    FloodFill(25+i*50,100,Pen.Color)    endend.