Ответ:
Фрагмент программы:
...
FloodFill(300,150,clblue);
FloodFill(250,325,clred);
FloodFill(350,325,clNavy);
FloodFill(300,250,clyellow);
FloodFill(225,225,clLime);
FloodFill(375,225,clPurple);
...
Объяснение:
Смотри картинку
uses graphabc;
begin
MoveTo (200,400);
LineTo (300,75);
LineTo (400,400);
LineTo (150,200);
LineTo (450,200);
LineTo (200,400);
FloodFill(300,150,clblue);
FloodFill(250,325,clred);
FloodFill(350,325,clNavy);
FloodFill(300,250,clyellow);
FloodFill(225,225,clLime);
FloodFill(375,225,clPurple);
end.