Помогите кому не лень- очень прошу...
uses graph;
const
el: array[1..20] of pointtype=
((x:587; y: 439), (x:200; y: 439), (x:348; y: 406),
(x:225; y: 405), (x:357; y: 332), (x:256; y: 331),
(x:360; y: 256), (x:303; y: 256), (x:374; y: 201),
(x:328; y: 200), (x:405; y: 123), (x:475; y: 199),
(x:434; y: 199), (x:500; y: 255), (x:441; y: 255),
(x:536; y: 326), (x:432; y: 326), (x:562; y: 403),
(x:444; y: 404), (x:587; y: 439));
var gd, gm: integer;
begin
gd:= detect; initgraph(gd,gm,'');
drawpoly(20,el);
bar(347,492,439,545);
setcolor(green);
floodfill(433,327,green);
readln; closegraph;
end.