Нарисовать самолет- Pascal(Паскаль)

 uses crt,graph;
 var a,b,c,d:integer;
begin
 
c:=15; {Здесь выберается цвет самолета от 2 до 15.}
 
initgraph(a,b,'e:\program\bp\bgi');
setbkcolor(blue);
 
{Рисование корпуса самолета.}
setcolor(c);
setlinestyle(0,0,3);
line(270,300,348,300);
line(418,300,500,300);
line(500,300,550,200);
line(550,200,500,200);
line(500,200,460,250);
line(460,250,290,250);
ellipse(330,250,0,180,40,20);
line(290,250,220,270);
line(220,270,270,300);
line(220,270,200,270);
 
line(530,200,495,255);
line(495,255,522,255);
SetFillStyle(10,c);
FloodFill(525,230,c);
 
{Нижнее крыло.}
line(330,280,420,380);
ellipse(365,280,0,180,35,10);
line(400,280,490,380);
SetFillStyle(6,c);
ellipse(455,380,0,360,35,10);
floodfill(390,320,c);
SetFillStyle(9,c);
FloodFill(455,380,c);
 
{Верхнее крыло.}
line(330,230,380,160);
ellipse(415,160,0,180,35,10);
line(450,160,395,250);
SetFillStyle(6,c);
FloodFill(420,200,c);
 
 
setlinestyle(0,0,0);
SetFillStyle(8,c);
FloodFill(250,270,c);
 
setcolor(red);
settextstyle(0,0,2);
 
outtextxy(375,290,'*');
outtextxy(405,320,'*');
outtextxy(435,350,'*');
 
outtextxy(363,220,'*');
outtextxy(383,190,'*');
outtextxy(403,160,'*');
 
 
readln;
end.