Uses GraphABC;
begin
Circle(100,100,20);
MoveTo(120,100);
LineTo(160,80);
LineTo(200,100);
LineTo(160,120);
LineTo(120,100);
Circle(220,100,20);
LineTo(200,100);
FloodFill(100,100,clRed);
FloodFill(220,100,clYellow);
FloodFill(160,90,clSkyBlue);
FloodFill(160,110,clGreen);
end.
Вроде как-то так, не проверял