Kod
program prg;
uses crt, graph;
var tryb, karta : Integer;
BEGIN
detectgraph(tryb, karta);
initgraph(tryb, karta, '');
setcolor(red);
setlinestyle(0, 4, 3);
line(250, 400, 400, 100);
line(400, 100, 550, 400);
line(250, 400, 550, 400);
setfillstyle(1, yellow);
floodfill(300, 450, red);
readkey;
closegraph();
END.
uses crt, graph;
var tryb, karta : Integer;
BEGIN
detectgraph(tryb, karta);
initgraph(tryb, karta, '');
setcolor(red);
setlinestyle(0, 4, 3);
line(250, 400, 400, 100);
line(400, 100, 550, 400);
line(250, 400, 550, 400);
setfillstyle(1, yellow);
floodfill(300, 450, red);
readkey;
closegraph();
END.